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SUMMARY 


This  report  describes  a  FORTRAN  computer  program  which  deter¬ 
mines  the  orientation  (with  confidence  limits)  of  an  assumed  double  couple 
earthquake  source,  given  a  series  of  teleseismically  observed  relative  amplitudes, 
each  of  which  relates  the  amplitudes  of  either  P  and  pP,  or  P  and  sP,  or  pP  and 
sP  on  one  seismogram.  Appropriate  upper  and  lower  limits  are  assigned  in 
arbitrary  units  to  the  observed  amplitude  of  each  phase,  with  or  without  a 
polarity  specification,  and  from  these  limits  the  program  computes  the 
corresponding  range(s)  of  relative  amplitudes  for  each  pair  of  phases.  All  source 
orientations  which  are  compatible  with  the  range(s)  of  relative  amplitudes  are 
then  identified,  and  can  be  displayed  graphically.  Those  orientations  which  are 
compatible  with  all  pairs  of  phases  at  ail  stations  constitute  the  focal  mechanism 
solution,  with  confidence  limits  which  correspond  directly  to  the  confidence  of 
the  initial  measurements.  The  program  can  be  applied  to  shallow  or  deep 
earthquakes  beneath  land  or  sea. 


1.  OBJECT  OF  THE  REPORT 


This  report  describes  a  FORTRAN  computer  program  (FALT)  which 
finds  all  the  orientations  of  an  assumed  double  couple  earthquake  source  which 
are  compatible  with  a  given  series  of  teleseismically  observed  relative 
amplitudes,  where  each  relative  amplitude  relates  the  amplitudes  of  either  P  and 
pP,  or  P  and  sP,  or  pP  and  sP,  measured  with  "100%  confidence  limits"  on  one 
seismogram.  Those  orientations  which  are  compatible  with  all  pairs  of  phases  at 
all  stations  constitute  a  focal  mechanism  determination  with  appropriate 
confidence  limits. 

Use  of  the  program  is  described  fully  in  section  2,  which  contains  a 
description  and  explanation  of  all  its  features  and  their  associated  input  and 
output  options.  Also  of  importance  is  discussion  of  the  program's  range  of 
applicability  to  various  types  of  earthquake  and  seismogram. 

Section  3  contains  some  brief  comments  on  the  method,  particularly 
as  compared  with  the  established  "first  motion"  methods  of  determining  fault 
plane  orientations. 

The  appendices  contain  additional  details  to  support  section  2,  but 
which  are  more  appropriate  for  reference  use.  The  schematic  diagram  of 
appendix  A  gives  a  broad  outline  of  the  program  logic,  and  appendices  B  and  C 
define  the  format  of  the  program  input.  Appendix  D  gives  computing  time  and 
storage  requirements  and  related  details,  and  appendices  E,  F  and  G  contain  the 
theory  which  is  used  in  the  computations.  The  program  listing  is  given  in 
appendices  H  and  I. 

This  report  is  meant  only  as  a  users'  guide  to  the  program.  Examples 
of  its  application  to  real  earthquakes  are  published  elsewhere.  The  program  has 
been  applied  to  a  wide  range  of  earthquakes,  and  the  reader  is  referred  to  Pearce 
(1,2),  Barley  and  Pearce  (3)  and  Pearce  (4).  Without  modification  it  has  also  been 
applied  to  a  micro-earthquake  beneath  the  Mid-Atlantic  Ridge  observed  locally 
on  ocean-bottom  seismographs  (5),  but  this  type  of  application  is  not  considered 
in  this  report. 


2.  USE  OF  THE  PROGRAM 


2.1  Introduction 


Use  of  the  program  FALT  is  most  easily  described  by  means  of  an 
example,  so  in  this  section  a  set  of  seismograms  from  a  real  earthquake  is 
discussed  in  order  to  introduce  all  the  features  of  the  program.  In  this  way,  the 
purpose  of  its  input  and  output  options  can  be  more  clearly  demonstrated. 
Explanation  of  these  options  includes  reference  to  the  relevant  variables  in  the 
program  input,  whose  definitions  and  formats  are  stated  formally  in  appendices  B 
and  C. 


Figure  1  shows  P  wave  seismograms  recorded  teleseismically  at  three 
short  period  arrays  from  a  shallow  earthquake  in  East  Kazakhstan,  whose  body 
wave  magnitude  m.  was  about  5.0.  The  seismograms  are  phased  array  sums  of 
about  twenty  seismometers,  but  the  only  significance  of  using  arrays  here  is  the 
consequent  improvement  in  signal-to-noise  ratio  over  that  of  a  single 
seismograph  record. 

In  a  previous  study  of  these  seismograms  by  Douglas  et  al.  (6), 
modelling  and  other  evidence  provided  strong  indications  that  the  two  discrete 
arrivals  recorded  at  Yellowknife  (YKA)  and  Warramunga  (WRA)  are  P  and  pP, 
and  that  the  two  arrivals  at  Cauribidanur  (GBA)  are  P  and  sP,  as  shown  in  figure 
1.  The  relative  arrival  times  of  the  supposed  pP  and  sP  phases  relative  to  the 
direct  P  wave  agreed  with  this  interpretation,  and  in  order  to  generate  matching 
theoretical  seismograms,  Douglas  et  al.  had  to  resort  to  a  process  of  trial  and 
error  to  search  for  a  double  couple  orientation  which  yielded  polarities  and 
relative  amplitudes  similar  to  those  observed  for  P,  pP  and  sP  at  all  three 
stations.  Their  success  in  finding  such  an  orientation,  coupled  with  other 
evidence,  was  used  to  conclude  that  the  event  was  indeed  an  earthquake  with  the 
specified  source  orientation  and  with  the  chosen  phase  identifications  on  each 
seismogram.  However,  this  conclusion  lacked  an  associated  estimate  of  its 
eliability,  which  would  be  provided  by,  for  example,  a  measure  of  the  non¬ 
uniqueness  of  the  compatible  source  orientation. 


The  purpose  of  the  program  FALT  is  to  meet  this  requirement  by 
providing  a  formal  answer  to  the  question  "What  range  or  ranges  of  source 
orientations,  if  any,  are  consistent  with  the  polarities  and  relative  amplitudes  of 
P,  pP  and  sP  observed  on  all  available  seismograms,  assuming  chosen  phase 
identifications  on  the  seismograms,  and  assuming  that  the  seismic  source  is  an 
earthquake  double  couple?"  Of  fundamental  importance  is  the  use  of  only 
relative  amplitudes;  all  reference  to  absolute  amplitudes  is  entirely  avoided.  The 
significance  of  this  can  be  seen  from  figure  2(a),  which  shows  schematically  the 
ray  paths  of  P,  pP  and  sP  for  a  shallow  earthquake.  Attempts  to  contour  the 
source  radiation  pattern  by  comparing  absolute  P  amplitudes  at  different  stations 
(eg,  reference  (7))  or  by  comparing  phases  with  widely  differing  paths  at  the 
same  station,  all  rely  on  correct  allowance  being  made  for  the  grossly  variable 
effects  of  anelastic  attenuation  and  scattering  along  different  propagation  paths 
within  the  Earth.  Such  effects  may  dominate  that  of  the  source  radiation  pattern 
and  are  difficult  to  allow  for  adequately,  thereby  severely  limiting  the  success  of 
such  methods. 
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The  notion  of  dividing  orientations  into  those  which  are  "acceptable" 
and  "unacceptable"  is  another  major  departure  from  other  methods  of  determin¬ 
ing  focal  mechanisms,  which  typically  produce  one  "best  fit"  orientation.  It  will 
be  seen  that  the  implications  of  this,  which  are  summarised  in  section  3,  are 
fundamental  to  the  relative  amplitude  method. 

In  order  to  obtain  time-separation  of  the  P,  pP  and  sP  phases  on 
shallow  earthquake  seismograms  we  must  use  short  period  records,  or,  alterna¬ 
tively,  for  larger  earthquakes  use  could  be  made  of  broad  band  observations. 
From  figure  2(a),  we  expect  the  amplitudes  of  P,  pP  and  sP  from  a  shallow 
earthquake  to  suffer  the  same  loss  along  the  path  to  a  given  station,  except  near 
the  source,  as  only  here  do  the  phases  traverse  significantly  different  paths. 
Hence,  the  sensitivity  of  short  period  amplitudes  to  aneiastic  attenuation  does 
not  present  a  difficulty,  since  for  relative  amplitudes  it  cancels  out. 

The  ray  paths  shown  in  figure  2(a)  represent  the  three  phases  P,  pP 
and  sP,  which  are  supposed  to  be  present  in  figure  1.  The  waveform  of  each 
seismogram  -  and  hence  its  interpretation  -  is  unusually  simple,  so  these 
seismograms  might  be  considered  to  be  "ideal"  in  terms  of  the  development  of 
the  present  method.  Because  few  seismograms  can  be  so  easily  interpreted,  the 
following  pages  include  discussion  of  the  extent  to  which  other  types  of 
seismogram  or  earthquake  can  be  brought  within  the  ambit  of  the  relative 
amplitude  method. 

We  can  immediately  ask  whether  the  method  can  be  applied  to  deep 
earthquakes,  whose  corresponding  ray  paths  are  shown  schematically  in  figure 
2(b).  It  is  no  longer  valid  to  assume  that  the  three  phases  traverse  similar  mantle 
paths,  but  in  this  case  time-separation  of  the  phases  is  obtained  on  long  period 
seismograms,  which  are  not  so  sensitive  to  differences  in  aneiastic  attenuation. 
So  it  is  feasible  to  apply  the  method  to  those  deep  earthquakes  which  are  large 
enough  to  yield  long  period  seismograms  (ie,  which  have  a  body  wave  magnitude 
m^  of  about  5$  or  larger). 

Before  describing  the  method,  it  is  noted  that,  by  providing  a 
quantitative  answer  to  the  question  posed  earlier,  we  establish  whether  or  not 
any  source  orientations  are  compatible  with  the  assumed  phase  identifications, 
and  if  some  are,  then  we  know  how  well  the  source  orientation  is  constrained, 
which  types  of  faults  the  solution  represents,  and  whether  it  is  non-unique  (as 
evidenced  by  the  existence  of  more  than  one  compatible  range  of  orientations).  If 
no  orientations  are  compatible,  this  might  be  evidence  of  an  anomalous  source 
mechanism,  incorrect  seismogram  interpretation  or  merely  the  presence  of  one 
or  more  anomalous  seismograms;  the  program  includes  features  which  assist  in 
the  investigation  of  such  anomalies. 

2.2  Method  of  specifying  amplitude  bounds  numerically 

We  first  consider  the  method  by  which  relative  amplitude 
measurements  (with  their  correct  confidence  limits)  are  expressed  for  the  phases 
identified  on  a  seismogram.  The  inclusion  of  confidence  limits  in  amplitude 
measurements  means  that  the  uncertainty  in  each  measurement  is  implicit  in  the 
input  data.  This  is  not  possible  for  first  motion  readings  alone  -  giving  rise  to 
one  of  their  main  disadvantages,  as  explained  in  section  3. 


The  method  of  specifying  amplitude  bounds  numerically  has  been 
designed  so  that  the  value  for  each  phase,  with  appropriate  confidence  limits, 
can  be  correctly  expressed  in  terms  of  actual  measurements  which  can  be  made 
on  a  real  seismogram.  Accordingly,  the  amplitude  information  is  specified  for 
each  phase  separately,  in  units  which  are  arbitrary  -  it  being  necessary  only  to 
maintain  the  same  units  for  all  phases  on  the  same  seismogram.  Each  amplitude 
can  be  assigned  particular  "100%  confidence  limits"  having  regard  for  the  several 
uncertainties  discussed  in  section  2.3.  The  program  then  converts  these 
measurements  into  equivalent  range(s)  of  relative  amplitudes  for  each  phase  pair. 
Therefore,  when  we  speak  of  measuring  the  "amplitude"  of  a  phase  in  the  present 
context,  this  is  only  a  convenient  step  towards  establishing  relative  amplitudes 
and  does  not  refer  to  amplitude  in  any  absolute  sense. 

The  amplitude  information  from  each  phase  is  specified  using  three 

variables:- 

(1)  Lower  bound  on  the  signal  amplitude,  without  attention  to 
polarity. 

(2)  Upper  bound  on  the  signal  amplitude,  without  attention  to 
polarity. 

(3)  Signal  polarity  -  either  positive,  negative  or  uncertain  (ie,  both 
polarities  included). 

The  corresponding  three  variables  in  the  program  input  are  either 
PA2IN,  PA1IN  and  SIGNP,  or  PPA21N,  PPA1IN  and  SIGNPP,  as  indicated  in 
appendix  B. 


Amplitude  assignments  for  the  seismograms  in  figure  1  are  included 
in  the  figure  .  We  note  that  the  specification  of  upper  and  lower  bounds  on  an 
amplitude  is  independent  of  any  choice  of  polarity  (as  it  is  in  reality),  so  that  the 
"large  amplitude  but  uncertain  polarity"  situation  is  represented  by  a  positive 
range  and  an  identical  negative  range  of  amplidues  as  for  sP  at  GBA.  A  lower 
amplitude  phase  (for  example,  sP  at  YKA)  can  be  assigned  a  lower  bound  of  zero 
with  unspecified  polarity,  which  gives  one  amplitude  range  centred  on  zero. 


We  note  also  that  even  if  a  phase  is  not  visible  on  the  seismogram 
(see,  for  example,  pP  at  GBA),  then  an  upper  bound  can  still  be  placed  on  its 
amplitude.  This  ability  of  the  relative  amplitude  method  to  utilise  even  the 
information  which  is  implicit  in  the  absence  of  phases  is  of  great  importance, 
since  this  indicates  that  the  corresponding  ray  left  the  source  near  a  null  or 
"node"  in  the  radiation  pattern  which  provides  a  strong  constraint  on  its 
orientation. 

2.3  The  correct  assignment  of  100%  confidence  limits  to  observed 

amplitudes 

We  now  consider  the  criteria  which  decide  the  correct  choice  of 
amplitude  bounds  for  each  phase. 
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Application  of  the  relative  amplitude  method  to  a  given  set  of 
seismograms  will  yield  one  or  more  compatible  regions  in  orientation  space,  or  it 
may  yield  no  compatible  orientations.  Whatever  the  result,  its  validity,  and  hence 
its  correct  interpretation,  relies  entirely  on  the  specification  of  true  100% 
confidence  limits  on  the  amplitudes  of  each  identified  phase.  Several  factors 
contribute  to  the  size  of  the  uncertainty  in  each  phase  amplitude,  and  it  is  vital 
to  allow  for  all  of  these  when  specifying  each  upper  and  lower  amplitude  bound. 
These  contributory  factors,  which  are  treated  below,  typically  lead  to  uncertain¬ 
ties  of  up  to  a  factor  of  two  for  pP,  and  possibly  more  for  sP. 

Since  the  aim  is  to  specify  "100%  confidence  limits"  it  is  first  noted 
that  a  signal  polarity  must  only  be  specified  if  it  can  be  read  unambiguously  from 
the  seismogram.  In  all  other  cases  it  must  be  left  as  unspecified,  which  results  in 
both  polarities  being  included  for  whatever  amplitude  range  is  specified  for  that 
phase.  Four  factors  which  contribute  to  uncertainty  in  the  observed  amplitudes 
are  identified:- 

2.3.1  Effect  of  microseismic  noise 


The  uncertainty  which  the  presence  of  seismic  noise  imposes  on  the 
observed  signal  amplitude  depends  mainly  on  the  amplitude  of  the  noise  on  the 
seismogram  at  or  near  the  signal  dominant  period.  Even  when  this  is  small,  it  can 
still  be  responsible  for  ambiguity  in  the  signal  polarity,  which  must  then  be  left 
unspecified.  Pearce  and  Barley  (8)  have  introduced  a  method  of  adding  synthetic 
noise  to  theoretical  seismograms  in  order  to  establish  the  amount  of  signal 
distortion  that  is  attributable  to  noise  on  any  given  ,  bserved  seismogram.  They 
showed  that  a  surprisingly  low  level  of  microseismic  noise  can  lead  to  incorrect, 
but  apparently  unambiguous,  first  motion  readings  on  short  period  seismograms. 
In  figure  1,  microseismic  noise  is  low  at  YKA,  but  noise  with  a  dominant  period 
similar  to  that  of  the  signal  could  be  substantially  affecting  signal  amplitudes  at 
WRA  and  GBA.  If  the  earthquake  were  sufficiently  large  to  yield  broad  band 
seismograms,  the  microseismic  noise  might  still  not  contribute  much  uncertainty 
at  YKA,  since  its  dominant  period  (about  6  s)  would  be  well  separated  from  that 
of  the  signals  (about  1  s). 

2.3.2  Effect  of  seismograph  response 

The  theoretical  requirement  is  to  measure  the  square  root  of  the 
energy  contained  in  the  complete  pulse.  This  is  best  done  on  a  broad  band  record, 
where  any  difference  in  pulse  length  between  the  phases  can  be  observed  and 
allowed  for,  by  aiming  to  use  the  area  beneath  the  broad  band  displacement 
record.  If  the  source  emission  has  a  finite  duration,  then  narrow  band 
seismographs  (particularly  those  at  short  periods  as  in  figure  1)  record  the 
derivative  of  the  ground  motion,  which  can,  therefore,  lead  to  gross  discre¬ 
pancies  between  the  recorded  amplitude  and  the  broad  band  pulse  energy.  It  is 
for  this  reason  that  subsequent  matching  of  pulse  shape  and  waveform,  as  well  as 
amplitude,  by  the  generation  of  theoretical  seismograms  using  a  source 
orientation  computed  by  this  program,  is  of  value  in  providing  additional 
interpretative  evidence  (as  discussed  in  the  example  of  figure  1  by  Douglas  et  al. 
(6)).  In  general,  for  short  period  recordings  of  shallow  earthquakes  the  best 
results  are  expected  for  a  small  source,  whose  duration  of  emission  is  less  than 
1  s  and  therefore  lies  well  within  the  pass  band  of  the  seismograph.  This  is 
assumed  to  apply  for  the  figure  1  example,  and  the  ability  of  Douglas  et  al.  to 
reproduce  closely  the  pulse  shapes  of  the  phases  provides  strong  support  for  this 
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assumption.  No  formal  allowance  is  made  in  the  program  for  source  finiteness; 
the  radiation  from  a  point  double  couple  is  used  throughout  (see  appendix  E). 
However,  we  do  not  expect  source  finiteness  to  have  a  major  effect  on  observed 
relative  amplitudes  provided  that  the  duration  of  the  source  radiation  lies  within 
the  pass  band  of  the  seismograph.  Long  period  seismograms  cannot  be  used  for 
shallow  earthquakes  because  the  phases  of  interest  are  not  time-resolved.  For 
deep  earthquakes,  the  use  of  wide  band  long  period  seismograms  (such  as  those  of 
the  WWSSN)  allows  reliable  amplitude  measurements  to  be  made  for  larger 
earthquakes,  as  previously  explained. 

2.3.3  Effect  of  interfering  arrivals 

If  another  phase  interferes  with  the  phase  being  measured,  the  effect 
on  a  short  period  waveform  is  large,  although  the  generation  of  theoretical 
seismograms  is  again  able  to  assist  in  putting  bounds  on  its  possible  amplitude. 
The  example  in  figure  1  does  not  exhibit  such  interference,  but  this  is  unusual. 
When  the  coda  is  complex,  it  may  only  be  possible  to  place  an  upper  bound 
(without  polarity)  on  the  amplitudes  of  the  reflected  phases,  but  it  can  be  shown 
that  even  this  often  imposes  a  significant  constraint  on  the  source  orientation 
(4). 

2.3.4  Effect  of  uncertainty  in  other  parameters 

Lastly,  it  must  be  remembered  that  other  input  parameters  may 
themselves  have  an  uncertainty  which  leads  to  a  corresponding  uncertainty  in 
amplitude,  whose  effect  must  be  included  in  the  amplitude  bounds.  The  effect  of 
amplitude  loss  during  surface  reflection  of  pP  and  sP  is  calculated  and  allowed 
for  in  the  program  as  described  later,  and  there  is  an  option  to  allow  for  other 
losses  of  pP  or  sP  amplitude  above  the  source,  relative  to  direct  P.  However, 
these  additional  losses  can  only  be  estimated,  as  are  the  parameters  which  are 
needed  to  calculate  reflection  coefficients  -  namely  the  P  and  S  wave  velocities 
in  the  source  layer  and  surface  layer,  and  the  surface  layer  density  for  undersea 
earthquakes.  Specified  takeoff  angles  at  the  source  are  also  only  approximate 
(see  later)  and  represent  a  range  of  points  on  the  focal  sphere  -  the  maximum 
effect  of  this  angle  occurs  when  a  ray  emerges  from  near  a  node  (ie,  a  null  in  the 
radiation  pattern)  because  it  is  then  that  the  angular  rate  of  change  in  radiated 
energy  is  highest.  These  angles  also  affect  reflection  coefficients,  in  the  way 
described  in  section  2.6.1. 

Specification  of  the  parameters  relevant  to  these  uncertainties  is 
discussed  later;  here  a  "check  list"  is  given  of  those  input  variables  whose 
uncertainties  may  affect  amplitudes.  They  are:  ALPHA,  GAMMA,  DIST,  DEPTH, 
PPFCTF,  SPFCTF,  PPFCT1,  SPFCT1,  VPSRCE,  VSSRCE,  VPSURF,  VSSURF  and 
DSURF. 

2.4  The  possible  phase  pairs  for  earthquakes  beneath  land  and  sea 

Since  the  present  method  is  based  on  relative  amplitudes,  the  basic 
element  of  information  is  provided,  not  by  one  phase,  but  by  a  phase  pair.  Hence, 
the  fundamental  unit  of  computation  is  to  process  a  single  phase  pair  in  order  to 
find  those  source  orientations  which  are  compatible  with  the  given  phase  pair  on 
a  given  seismogram.  Any  number  of  such  phase  pairs  -  from  the  same  and  other 
seismograms  -  can  then  be  similarly  processed,  and  their  results  combined  to 
establish  those  (if  any)  source  orientations  which  are  compatible  with  all  phase 
pairs.  Mentioned  below  are  all  the  types  of  phase  pair  which  are  included  in  the 
program. 
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For  earthquakes  beneath  land,  as  for  the  example  in  figure  1,  we 
expect  three  main  phases,  namely  P,  pP  and  sP  as  shown  in  figure  3(a).  If  both 
the  P  and  pP  and  the  P  and  sP  phase  pairs  are  included  from  the  same 
seismogram,  then  additional  orientations  will,  in  general,  be  eliminated  by  also 
including  the  third  possible  phase  pair,  namely  the  corresponding  pP  and  sP.  This 
third  phase  pair  should,  therefore,  be  included  whenever  all  three  phases  are 
utilised  from  the  same  seismogram. 

4 

For  undersea  earthquakes  (specified  using  1SEA)  we  ideally  expect  to 
observe  four  rather  than  three  main  phases,  as  shown  in  figure  3(b).  In  this  case 
pP  is  defined  as  the  reflection  at  the  sea  bed,  while  the  analogous  reflection 
from  the  sea  surface  -  denoted  by  pP(ssf)  -  can  be  utilised  in  addition  to,  or 
instead  of,  pP.  There  are  then  six  possible  phase  pairs,  ie,  P  and  pP,  P  and  sP,  pP 
and  sP,  P  and  pP(ssf),  pP(ssf)  and  sP,  and  pP  and  pP(ssf).  If  only  three  phases  are 
used  (that  is,  either  P,  pP  and  sP  or  P,  pP(ssf)  and  sP),  there  are  three  phase  pairs 
to  include.  If  all  four  phases  are  used,  there  are  five  phase  pairs  to  include.  The 
sixth  phase  pair,  namely  pP  and  pP(ssf),  should  strictly  be  included,  but  since 
these  two  phases  sample  the  same  point  on  the  focal  sphere  they  should  convey 
similar  information.  This  means  that  no  additional  orientations  would  be 
eliminated,  so  the  option  to  use  this  phase  pair  is  not  included. 

In  what  follows,  the  phases  pP  reflected  at  a  solid  free  surface,  sea 
surface  or  sea  bed  are  sometimes  referred  to  collectively  as  "pP  type  phases", 
and  sP  reflected  at  a  solid  free  surface  or  sea  bed  as  "sP  type  phases". 

The  type  of  phase  pair  to  which  a  set  of  measurements  relates  is 
identified  by  codes,  using  the  variable  PHASES. 

2.5  Ray  path  specification 

Having  established  a  method  of  describing  the  relative  amplitudes  of 
phase  pairs  numerically,  it  is  necessary  to  specify  all  the  structural  and  ray  path 
parameters  which  enable  the  theoretically  expected  relative  amplitude  to  be 
calculated  for  a  given  source  orientation  and  a  given  phase  pair  at  a  specified 
station. 

First,  the  directions  in  which  the  ray  paths  leave  the  focal  sphere, 
and  the  angles  at  which  they  are  reflected  at  the  surface,  must  be  specified. 

These  depend  upon  the  azimuth  and  distance  of  the  station  from  the  earthquake, 
upon  seismic  velocities  in  the  source  and  surface  layers,  and,  to  a  lesser  extent, 
upon  focal  depth.  The  specification  of  these  values  is  considered  in  this  section. 

Secondly,  it  may  be  necessary  to  apply  corrections  to  the  calculated  > 

amplitudes  of  surface  reflected  phases  to  allow  for  loss  of  amplitude  upon 
reflection  at  the  Earth's  surface,  or  at  other  crustal  discontinuities.  These 
corrections  also  depend  upon  seismic  velocities  and  densities,  and  certain  other 
geophysical  parameters,  and  are  discussed  in  section  2.6. 

The  azimuth  of  the  station  from  the  earthquake  is  specified  explicitly 
using  AZ1.  The  takeoff  angle  of  the  direct  P  wave  at  source,  and  also  of  pP,  can 
also  be  specified  explicitly,  using  ALPHA  and  GAMMA  respectively,  although  for 
all  shallow  earthquakes  these  angles  are  equal,  so  that  if  GAMMA  is  left  blank,  it 
is  set  to  the  value  of  ALPHA.  The  takeoff  angle  of  sP,  namely  BETA,  is  not 
specified  as  input  but  is  always  deduced  from  GAMMA  using  the  P  and  S  wave 
velocities  in  the  source  layer  (see  appendix  E).  Thus,  AZ1  and  ALPHA  (and  for  a 
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deep  earthquake  possibly  a  separate  GAMMA)  are  sufficient  to  fix  the  takeoff 
directions  of  P,  pP  and  sP  from  the  focal  sphere.  However,  a  separate 
estimation  of  ALPHA  for  a  large  number  of  stations  is  tedious  and  consists 
essentially  of  consulting  tables  of  takeoff  angles  against  distance  and  depth,  and 
possibly  applying  a  correction  for  source  layer  velocity  in  the  case  of  intracrustal 
earthquakes.  Because  of  this,  such  tables  are  stored  in  the  program  and  provide 
an  alternative  means  of  setting  ALPHA,  by  specifying  instead  the  epicentral 
distance  DIST  and  the  focal  depth  DEPTH.  The  use  of  this  option  is  controlled  by 
1NDANG.  When  using  DIST  and  DEPTH  to  set  takeoff  angles,  DEPTH  is  left  blank 
for  an  intracrustal  earthquake,  and  the  computed  P  wave  takeoff  angles  are  then 
automatically  corrected  for  the  specified  source  layer  velocity  (VPSRCE)  using 
Snell’s  law  and  assuming  a  sub-Moho  velocity  of  8.1  km/s.  Where  internal 
computation  of  P  wave  takeoff  angle  is  requested,  ALPHA  is  still  read  from  the 
input  for  any  phase  pairs  for  which  DIST  is  outside  the  teleseismic  range  (see 
under  INDANG  in  appendix  B). 

A  further  advantage  of  this  method  of  specifying  takeoff  angles  is 
that  adjustment  of  a  single  uncertain  variable  -  say  VPSRCE  or  DEPTH  -  can  be 
used  to  investigate  the  corresponding  effect  on  the  range  of  acceptable 
orientations.  The  value  of  perturbation  studies  of  this  kind  is  discussed  in  section 
2.12.  Separate  tables  of  pP  takeoff  angles  are  not  included  in  the  program,  so 
GAMMA  is  still  set  equal  to  ALPHA  unless  it  is  separately  specified. 

Although  the  above  options  provide  for  most  requirements,  the 
provision  to  systematically  perturb  p  wave  takeoff  angles  by  altering  the  source 
layer  velocity  or  focal  depth  does  not  extend  to  pP,  which  is  inconvenient  when 
studying  deep  earthquakes.  Furthermore,  it  might  be  instructive  to  investigate 
the  effect  of  perturbing  takeoff  angles  alone,  without  simultaneously  altering 
source  layer  velocity  which  causes  refraction  coefficients  to  change.  In  order  to 
provide  for  these  possibilities,  there  is  an  option  to  perturb  systematically  all  P 
takeoff  angles  and  pP  takeoff  angles,  using  ANGPF  and  ANGPPF  respectively. 
This  perturbation  is  applied  to  ALPHA  and  GAMMA  after  GAMMA  has  been  set 
to  ALPHA  (if  applicable)  and  so  allows  for  independent  perturbation  of  ALPHA 
and  GAMMA  during  investigation  of  anomalous  observations.  ANGPF  and 
ANGPPF  adjust  takeoff  angles  as  if  the  source  layer  P  wave  velocity  were 
changed  by  a  factor  of  ANGPF  (or  ANGPPF)  (see  under  ANGPF  in  appendix  B) 
but  the  value  of  VPSRCE,  as  required  for  calculating  angles  in  the  surface  layer, 
is  unchanged.  Thus,  ANGPF  and  ANGPPF  are  intended  for  use  as  experimental 
perturbation  factors  rather  than  as  representing  any  known  effect  of  structure  or 
source. 


2.6  Path  corrections  to  the  calculated  amplitudes  for  shallow  and  deep 

earthquakes 

When  calculating  the  theoretically  predicted  relative  amplitude  for  a 
phase  pair  at  a  given  station  for  a  specific  source  orientation,  it  is  necessary  to 
apply  corrections  to  allow  for  any  change  in  relative  amplitude  between  the 
phases  which  occurs  between  their  emergence  at  the  source  and  their  arrival  at 
the  seismograph.  Following  the  argument  of  section  2.1  such  corrections  can  be 
restricted  to  the  parts  of  the  ray  paths  which  are  close  to  the  source.  We 
therefore  conclude  that  the  only  corrections  to  be  applied  are  to  compensate  for 
the  loss  of  amplitude  of  the  surface  reflected  phases  with  respect  to  P  which 
results  from  interaction  of  the  former  with  crustal  layering  above  the  source, 
including  the  effect  of  energy  loss  upon  reflection.  In  addition,  a  factor  must  be 
included  in  sP  which  relates  the  excitation  of  P  and  S  waves  by  the  source. 

It  is  emphasized  that  all  these  corrections  are  applied  to  the 
theoretically  expected  amplitudes  calculated  in  the  program,  which  are  then 
compared  with  the  range(s)  of  relative  amplitudes  deduced  from  the  seismogram; 
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thus,  the  numerical  values  corresponding  to  the  observed  amplitudes  are  not 
altered.  Hence,  all  effects  which  result  in  loss  of  amplitude  of  a  phase  during 
propagation  are  represented  by  factors  whose  value  is  numerically  less  than 
unity. 

The  above  effects  are  allowed  for  by  three  multiplicative  factors. 
First  a  correction  is  applied  by  the  program  to  any  surface  reflected  phase  to 
allow  for  energy  partitioning  upon  reflection  at  the  surface.  A  second  correction 
to  any  surface  reflected  phase  can  be  input  directly,  to  allow  for  any  other 
estimated  amplitude  effect  above  the  source.  A  third  correction  applies  to  sP 
only;  this  allows  for  the  relative  excitation  of  S  and  P  by  the  source.  These 
corrections  are  now  explained. 

2.6. 1  Allowance  for  reflection  coefficients  for  surface  reflected  phases 

The  appropriate  amplitude  reflection  coefficient  for  any  surface 
reflected  phase  is  normally  calculated  within  the  program,  and  corresponds 
either  to  the  variable  PPFCT3  (for  pP  type  reflections  at  a  solid  free  surface, 
set  surface  or  sea  bed)  or  to  SPFCT3  (for  sP  type  reflections  at  a  solid  free 
surface  or  sea  bed).  In  the  case  of  a  sea  surface  reflections,  the  coefficient 
includes  the  combined  effect  of  upward  refraction  at  the  sea  bed,  reflection  at 
the  sea  surface  and  downward  refraction  at  the  sea  bed.  The  quantities  PPFCT3 
and  SPFCT3  are  multiplicative  factors  which  are  applied  to  the  surface 
reflection  amplitude,  so  that  they  are  normally  less  than,  or  equal  to,  1.0,  but 
may  be  negative  to  allow  for  a  polarity  change  upon  reflection. 

The  relevant  mathematical  expressions  derived  from  the  appropriate 
Zoppritz  equations  are  given  in  appendix  E,  from  which  it  will  be  seen  that,  apart 
from  being  a  function  of  ray  angle  at  the  surface,  the  coefficients  depend  upon 
the  ratio  of  the  P  and  S  wave  velocities  in  the  surface  solid  layer.  Where  a  sea 
layer  is  present,  they  also  depend  upon  the  ratio  of  the  P  wave  velocities  in  the 
sea  and  surface  solid  layers,  and  upon  the  ratio  of  the  densities  in  these  layers. 
Hence,  there  are  several  structural  variables  to  be  specified,  and  they  are  input 
in  the  following  way. 

The  P  and  S  wave  velocities  in  the  source  layer  are  input  as  VPSRCE 
and  VSSRCE  respectively,  and  in  the  surface  solid  layer  as  VPSURF  and  VSSURF. 
The  ratios  of  these  velocities  are  required  to  calculate  ray  angles  at  the  surface 
given  those  at  the  source  using  Snell's  law,  and  the  ratio  of  the  P  and  S  velocities 
in  the  surface  layer  also  appears  explicitly  in  the  equations  for  the  reflection 
coefficients  (see  appendix  E).  (If  the  P  wave  takeoff  angles  at  source  are 
calculated  from  epicentral  distance  and  depth,  as  described  in  section  2.5,  then 
for  intracrustal  earthquakes  VPSRCE  is  also  used  in  that  calculation  if  the 
earthquake  is  intracrustal.) 

In  the  presence  of  a  sea  layer  the  density  of  the  surface  solid  layer  is 
input  as  DSURF  and  the  velocity  and  density  of  the  sea  layer  are  set  to  1.5  km/s 
and  1.0  g/cm3  respectively  and  are  held  as  constants  in  the  program. 


With  regard  to  the  numerical  values  of  these  coefficients,  it  should  be 
noted  that  they  tend  to  -  1.0  for  all  pP  type  phases  as  the  ray  approaches  vertical 
incidence,  the  minus  sign  indicating  that  reflection  yields  a  change  in  signal 
polarity,  which  always  occurs  for  the  near-vertical  angles  which  are  likely  to  be 
of  interest.  This  numerical  behaviour  of  the  coefficient  means  that  its  value  has 
little  dependence  upon  the  ray  angle  near  normal  incidence  -  it  does  not  become 


numerically  less  than  0.9  for  ray  angles  up  to  14°  from  the  vertical.  A 
consequence  of  this  is  that  we  do  not  expect  uncertainty  in  the  surface  layer 
velocity  to  introduce  any  significant  uncertainty  in  the  observed  pP  amplitude. 
By  contrast  the  reflection  coefficient  of  sP  type  phases  tends  to  zero 
approaching  vertical  incidence,  making  its  value  highly  sensitive  to  ray  angle 
near  the  vertical.  This  must  be  borne  in  mind  when  placing  the  100%  confidence 
limits  on  the  observed  amplitudes  of  sP  (see  section  2.3.4). 

As  explained  in  appendix  E,  the  reflection  coefficient  for  the  sP  type 
phases  also  includes  a  factor  to  allow  for  the  instantaneous  change  in 
geometrical  spreading  factor  which  the  incident  spherical  S  wavefront  suffers  on 
being  reflected  as  P.  This  factor  is  expressed  in  terms  of  the  pP  takeoff  angle 
alone. 


Values  of  PPFCT3  and  SPFCT3  are  normally  calculated  as  required 
for  each  phase  pair.  Alternatively,  there  is  an  option  (using  IFCT3)  to  set  all 
values  to  +  1.0,  so  that  the  desired  values  can  be  incorporated  into  PPFCT1  and 
SPFCT1  (see  below). 

2.6.2  Allowance  for  other  relative  amplitude  loss  for  surface  reflected 

phases 

A  further  multiplicative  factor,  whose  value  is  input  directly,  can  be 
applied  to  a  surface  reflected  phase  by  the  use  of  PPFCT1  (for  a  pP  type  phase) 
or  SPFCT1  (for  a  sP  type  phase).  The  factors,  which  may  be  specified  separately 
for  each  phase  pair  if  required,  are  intended  to  allow  for  estimated  loss  of 
amplitude  of  the  surface  reflected  phase  relative  to  direct  P,  due  to  any  other 
cause  apart  from  surface  reflection  which  was  treated  above.  The  factor  might 
include  the  effect  of  energy  partitioning  at  seismic  discontinuities  above  the 
source  other  than  the  free  surface,  or  that  of  anelastic  attenuation  or  scattering 
above  the  source.  Such  effects  do  not  lend  themselves  to  the  analytical 
treatment  of  the  previous  section,  so  the  values  are  left  to  be  estimated  and 
supplied  as  direct  input.  In  the  example  of  figure  1,  the  absence  of  any  other 
uninterpreted  arrivals  in  the  seismograms  suggests  that  the  the  structure  above 
the  source  is  very  "clean",  and  the  specification  of  a  factor  under  this  heading 
would  clearly  not  be  warranted.  However,  this  might  not  be  so  for  a  more 
complex  seismogram  if,  despite  its  complexity,  it  could  be  modelled  in  terms  of 
crustal  reflections  above  the  source  (see,  for  example,  chapter  5  of  reference 
(2)).  If,  when  setting  PPFCT1  and  SPFCT1,  the  ZSppritz  equations  are  used  to 
calculate  the  composite  effect  on  pP  and  sP  amplitude  of  a  complex  velocity 
structure  above  the  source,  then  it  may  be  more  convenient  to  include  the  effect 
of  the  free  surface  or  sea  layer  in  that  calculation.  In  order  to  provide  for  this, 
the  user  can  suppress  the  calculations  of  PPFCT3  and  SPFCT3  within  the 
program.  This  is  done  using  1FCT3. 

The  factors  PPFCT1  and  SPFCT1  have  a  further  use  in  perturbation 
studies  discussed  in  section  2.12,  as  one  can  study  what  effect  a  systematic 
change  of  surface  reflected  amplitudes  to  all  stations  has  on  the  compatible 
range  of  source  orientations.  In  order  to  facilitate  this,  the  option  to  specify 
factors  PPFCTF  and  SPFCTF  is  included;  these  can  be  used  to  apply  the  same 
amplitude  correction  to  all  pP  type  phases,  and  to  all  sP  type  phases,  in  a  given 
set  of  phase  pairs. 
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Allowance  for  relative  excitation  of  S  and  P  by  the  source 


Expressions  for  the  P  and  S  wave  amplitude  leaving  the  source  in  any 
given  direction  are  each  normalised  to  unity  in  the  calculations  within  the 
program.  A  relative  amplitude  relating  two  phases  which  both  leave  the  source  as 
P  (ie,  P  and  pP)  is  independent  of  ail  geophysical  parameters.  However,  this  is 
not  so  for  the  relative  amplitude  of  a  P  and  an  S  phase  (ie,  P  and  sP  or  pP  and 
sP),  as  equations  (El)  and  (E2)  in  appendix  E  show.  This  factor  corresponds  to  the 
relative  excitation  of  P  and  S  by  the  source,  and  is  numerically  close  to  5.2,  as 
shown  in  appendix  E.  This  factor  (SPFCT2)  is  applied  to  all  sP  type  phases,  and  is 
set  in  the  program  to  5.2. 

2.7  The  procedure  for  searching  orientation  space 

For  the  purpose  of  the  relative  amplitude  method  the  point  double 
couple  source  is  described  in  terms  of  its  equivalent  far-field  P  and  S  wave 
radiation  patterns,  as  given  in  appendix  E,  and  illustrated  in  figures  4(c)  and  5(c) 
respectively.  With  respect  to  the  co-ordinate  system  of  figures  4  and  5,  a  source 
orientation  is  defined  in  terms  of  the  three  angular  variables,  shown  in  figure  6(a) 
-  namely  the  dip  6  of  the  fault  plane,  the  slip  angle  \|>  in  this  plane  and  its  strike 
a  from  north.  For  a  given  phase  pair  (with  corresponding  station  azimuth  £  and 
takeoff  angles  a ,  8  and  y  as  shown  in  figure  6(b))  all  source  orientations  are 
searched  at  an  angular  interval  d,  within  the  limits  d^t^1T;d.Js6^  irand 
d  4  n  <c2ir,  as  described  in  appendix  F.  (Here,  n  is  simply  the  azimuth  of  the 
recording  station  measured  from  the  strike,  ie,  £  -  a ).  In  appendix  F  it  is 

explained  that  these  bounds  effectively  include  all  possible  orientations,  with 
interchange  of  fault  and  auxiliary  planes  as  separate  solutions. 

For  each  orientation  in  the  search  mesh,  the  theoretically  expected 
relative  amplitude  is  calculated  (with  its  path  corrections  as  described  in  section 
2.6)  and  is  tested  against  the  acceptable  relative  amplitude  range(s)  correspond¬ 
ing  to  the  input.  The  orientation  is  then  classified  as  "acceptable"  or 
"unacceptable"  according  to  whether  or  not  the  calculated  value  lies  within  the 
acceptable  range(s).  Acceptable  orientations  are  listed  and  displayed  as  described 
in  section  2.8.  In  this  way  a  picture  of  the  acceptable  regions  in  orientation  space 
is  built  up  as  the  search  progresses. 

The  angular  increment  for  search,  d,  is  always  the  same  in  dip,  slip 
angle  and  strike.  It  corresponds  to  the  input  variable  DINCIN,  which  is  converted 
to  DINC  within  the  program,  after  checking,  and,  if  necessary,  correcting  its 
value  to  an  integer  submultiple  of  90.0,  which  fulfils  the  requirements  set  out  in 
appendix  B.  The  choice  of  a  suitable  value  of  d  is  governed  by  several  criteria.  A 
minimum  value  is  imposed  by  the  availability  of  computing  time  and  storage, 
since  d  is  the  major  factor  which  determines  these  requirements  -  both  of  which 
are  approximately  inversely  proportional  to  the  cube  of  d.  There  is  also  a 
maximum  number  of  search  increments  which  can  be  usefully  accommodated  in 
the  visual  display  of  results  described  below.  Conversely,  seismograms  of  a  given 
quality  require  a  value  of  d  which  is  small  enough  to  exploit  adequately  the 
information  which  they  contain. 

It  is  foun^that  d  =  5°  provides  a  satisfactory  compromise  for  typical 
data,  although  d  =  10°  is  more  suitable  for  less  accurate  computations,  or  where 
a  large  number  of  stations  is  included.  In  section  2.12  the  option  to  search  over  a 
restricted  region  of  orientation  space  is  introduced;  this  enables  greater 
resolution  (with  d  as  small  as  1°)  to  be  used  in  certain  cases,  with  no  extra 
computing  requirements.  Further  guidance  on  setting  DINCIN  is  given  in 
appendix  B. 


14 


2.8 


Method  of  displaying  results  -  SUBROUTINE  PLOTV 

Although  the  source  orientations  compatible  with  each  successive 
phase  pair  are  listed  if  required  by  controlling  IPRINT1,  a  clear  interpretation  of 
the  acceptable  regions  in  orientation  space  requires  a  form  of  three-dimensional 
display  on  which  different  types  of  orientation  can  be  easily  recognised.  This  is 
not  provided  by  plotting  pairs  of  great  circles  on  a  stereographic  projection, 
since  only  several  such  pairs  can  be  plotted  without  confusion,  and  because  the 
arbitrary  size  and  shape  of  the  acceptable  regions  would  not  be  discernible  on 
such  a  plot.  Dillinger  et  al.  (9)  and  Guinn  and  Long  (10)  have  represented 
arbitrarily  shaped  regions  of  orientation  space  by  plotting  on  a  stereographic 
projection  the  boundaries  of  the  acceptable  directions  of  the  compression, 
tension  and  null  axes,  and  Dillinger  et  al.  contoured  different  degrees  of 
compatibility  in  this  way.  However,  even  this  method  can  be  confusing  if  the 
regions  for  each  axis  are  large  or  disconnected,  or  extend  into  both  hemispheres. 

Pearce  (1)  introduced  an  entirely  different  type  of  representation, 
which  is  particularly  suitable  for  the  present  application.  All  those  orientations 
(ij>.,  6  -,o  )  which  are  compatible  with  one  (or  a  series)  of  phase  pairs  are  each 
plotted  as1  a  short  vector  drawn  at  an  angle  a  ^  from  the  Cartesian  point  (\p  6  .), 
using  the  type  of  three-dimensional  display  show  in  figure  7,  which  is  referred  to 
as  a  "vector-plot".  Different  combinations  of  ^  (the  angle  of  slip  in  the  fault 
plane)  and  6 (dip  of  the  fault  plane)  represent  the  various  types  of  fault,  which 
are  therefore  characterised  by  their  positions  on  the  vectorplot.  These  are 
indicated  in  figure  7  by  conventional  lower  hemisphere  stereographic  projections, 
which  are  oriented  for  northerly  strike  (o  =  360°  -  upward  vector);  other  strike 
directions  are  interpreted  by  equivalent  rotation  of  the  projections.  The 
positions  of  some  important  types  of  fault  on  the  vectorplot  are  labelled  -  there 
is  no  need  to  calculate  the  effect  of  interchanging  fault  and  auxiliary  planes 
because  the  resulting  fault  types  are  represented  elsewhere  on  the  plot. 

The  value  of  this  type  of  display  is  two-fold.  First,  the  arbitrary 
shapes  and  sizes  of  any  acceptable  regions  in  orientation  space  are  immediately 
apparent,  and  second,  a  given  phase  pair  or  series  of  phase  pairs  yields  an  easily 
interpretabJe  pattern  of  vectors,  whose  distribution  is  characteristic  of  one  or 
more  classes  of  fault.  Experience  with  different  characteristic  patterns  leads  to 
quick  interpretation  of  results  in  terms  of  fault  dynamics  as  for  stereographic 
projections,  but  in  a  deeper  sense  because  of  the  inclusion  of  confidence 
information.  Because  this  type  of  vectorplot  uses  only  a  single  vector  length  -  to 
denote  acceptance  of  an  orientation  -  it  is  referred  to  as  a  "fixed  length 
vectorplot"  to  distinguish  it  from  the  "variable  length  vectorplot"  introduced  in 
section  2.11. 

Vectorplots  are  routinely  generated  using  a  separate  subroutine, 
PLOTV,  which  is  called  by  the  main  program,  FALT.  A  vectorplot  is  then 
expanded  to  fill  the  frame  in  both  the  ip  and  <5  directions,  so  that  searches  over  a 
restricted  region  of  orientation  space  -  introduced  in  section  2.12  -  permit  plots 
with  longer  vectors;  this  becomes  valuable  when  the  "variable  length  vectorplot" 
is  introduced  in  section  2.11. 

The  example  of  figure  1  is  now  used  to  illustrate  the  use  of  the  fixed 
length  vectorplot;  amplitude  assignments  are  shown  in  figure  1.  The  phase  pair  P 
and  sP  at  WRA  is  compatible  with  the  orientations  shown  in  figure  8,  whose  main 
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features  are  immediately  apparent.  We  see  that  reverse  faults  with  all  possible 
strikes  are  compatible  (see  figure  7)  and  that  these  may  have  a  significant  strike 
slip  component.  We  also  see  that  certain  orientations  with  up  to  100%  strike  slip 
component  are  compatible,  but  with  only  certain  strikes.  No  orientations  with 
any  component  of  normal  faulting  are  compatible. 

For  more  formal  presentation  of  vectorplots,  as  required  for  example 
in  publications,  the  need  for  any  artwork  is  avoided  by  using  a  separate  program, 
PUBV,  which  plots  fully  annotated  vectorplots  given  the  machine  readable  output 
from  FALT  which  is  described  in  section  2.13.2.  PUBV  provides  for  full  flexibility 
of  presentation,  including  variable  plot  size  and  annotation,  and  options  to 
display  more  than  one  vectorplot  on  the  same  page.  Whereas  figure  8  shows  a 
typical  routine  output  from  FALT  using  PLOTV,  the  separate  program  PUBV  was 
used  to  generate  figures  9,  10  and  11.  Details  of  PUBV  are  not  included  in  this 
report. 


2.9  Combination  of  results  from  a  series  of  phase  pairs 

All  phase  pairs  are  processed  separately  as  described  above  and  in 
appendices  E  and  F;  each  phase  pair  reveals  an  array  of  acceptable  source 
orientations  which  can  be  represented  in  a  vectorplot  if  required  by  controlling 
1PLOT1.  Thus,  the  example  of  figure  1  would  yield  nine  vectorplots  similar  to 
figure  8,  but  each  with  a  different  number  and  distribution  of  vectors  according 
to  the  type  of  constraint  which  the  corresponding  phase  pair  imposes  on  the 
source  orientation. 

If  the  source  is  a  simple  double  couple,  and  if  the  phase  identifications 
are  correct  at  all  stations,  then  we  expect  at  least  one  orientation  to  be 
compatible  with  all  the  phase  pairs,  and  in  any  case  we  may  wish  to  know  which 
orientations  remain  acceptable  as  each  new  phase  pair  is  introduced.  In  order  to 
provide  this  the  program  uses  the  orientation  array  (variable  array  F  in  the 
program)  which  is  a  logical  array  with  one  element  for  each  search  point  in 
orientation  space.  Its  elements  are  initially  set  to  a  code  corresponding  to 
"acceptable"  and  as  each  phase  pair  is  processed,  the  elements  corresponding  to 
any  unacceptable  orientations  are  reset  in  accordance  with  the  procedure 
described  in  appendix  G.  In  this  way  the  orientation  array  retains  the  cumulative 
status  of  all  orientations,  and  by  accessing  it  after  processing  each  phase  pair 
listings  or  vectorplots  can  be  generated  which  show  those  orientations  which  are 
compatible  with  all  phase  pairs  so  far  processed  (controlled  by  IPRNT2  and 
IPLOT2  and  referred  to  as  "cumulative  acceptable  orientations").  The  listing  and 
vectorplot  showing  any  orientations  which  are  compatible  with  all  phase  pairs  are 
controlled  by  IPRNT4  and  IPLOT4  and  referred  to  as  "orientations  compatible 
with  all  phase  pairs".  The  method  by  which  the  results  from  a  series  of  phase 
pairs  are  combined  is  given  in  appendix  G. 

For  the  example  in  figure  1  we  find  that  there  are  indeed  some  source 
orientations  remaining  after  inclusion  of  all  phase  pairs,  though,  as  expected,  the 
number  is  much  smaller  than  for  a  single  phase  pair.  Figure  9  shows  the  resulting 
vectorplot,  which  indicates  that  only  a  range  of  near  45°  dip-slip  reverse  faults  is 
acceptable  (see  figure  7).  Figure  9  emphasises  the  inadequency  of  merely  quoting 
the  defining  angles  of  the  two  nodal  planes  with  their  confidence  limits  -  the 
shape  of  the  acceptable  region  in  orientation  space  is  far  from  rectilinear. 
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2.10 


Measurement  of  the  constraint  imposed  on  the  source  orientation  - 
the  use  of  "significance1*  values 

It  has  been  shown  that  fixed  length  vectorplots  give  a  clear  indication 
of  which  type  of  source  orientations  are  compatible  with  a  given  phase  pair,  or 
series  of  phase  pairs.  Of  interest  is  N.,  the  corresponding  number  of  source 
orientations  which  is  acceptable,  or  more  strictly  this  number  as  a  fraction  of  N, 
the  total  number  of  orientations  in  the  whole  of  orientation  space.  The  fraction 
of  orientations  which  is  incompatible  with  one  or  a  series  of  phase  pairs  is 
especially  important,  as  this  is  a  measure  of  the  degree  of  constraint  placed  upon 
the  source  orientation  by  the  phase  pair(s),  and  as  such  is  a  measure  of  their 
information  content  insofar  as  it  relates  to  the  source  orientation.  This  fraction 
of  incompatible  orientations  is  given  by  the  expression 


N  -  N. 

i 


However,  this  expression  is  a  measure  of  the  constraint  placed  upon  the  fault 
plane  orientation  in  the  co-ordinate  system  (it,  6, a)  and,  as  such,  is  useful  in 
terms  of  these  usual  geological  parameters.  This  is  not  equal  to  the  constraint 
imposed  on  the  fault  plane  orientation  in  real  space,  in  which  rotation  of  a  co¬ 
ordinate  system  through  the  same  angle  about  an^  pole  corresponds  to  the  same 
distance  moved  in  orientation  space.  This  difference  becomes  clear  for  6  =  ir 
(exception  (F2)  referred  to  in  appendix  F),  where  any  ip  and  6  with  the  same  sum 
represent  the  same  orientation  in  real  space. 

The  fraction  of  incompatible  orientations  in  real  space  gives  a 
correct  measure  of  the  constraint  which  a  given  phase  pair  or  set  ot  phase  pairs 
places  on  the  source  orientations,  and  will  be  referred  to  as  the  "significance"  of 
the  phase  pair  sis),  and  denoted  by  S.  In  order  to  obtain  the  significance  we 
require  that  the  volume  element  in  orientation  space  represented  by  each  search 
point  be  weighted  according  to  the  range  of  real  orientations  which  it  represents. 
A  range  of  real  orientations  is  given  by  the  allowable  range  of  any  chosen  axis, 
multiplied  by  the  allowable  range  of  rotations  about  that  axis,  and  for  ease  of 
computation  the  axis  through  the  strike  is  chosen  (see  figure  6(a)).  For  a  small 
angular  range  in  tp ,  £  and  o  ,  the  allowable  range  of  directions  of  this  axis  is 
A  ox  A»p  sino,  and  its  allowed  rotation  is  A  6.  Thus,  if  the  angular  variables  are 
continuous,  the  significance  is  given  by 

III  sin  6  dipdfido 

acceptable 

s  .  j  .  orientations - _ (2) 

JT  j!L  sin  d\pd6do 

For  the  discrete  variables  used  here  this  gives 

1  all  d*  sin  6 

acceptable 

orientations _  ....(3) 

S  “  1 - “ 

4tt2 

(where  d  in  this  equation  is  the  search  increment  as  defined  earlier). 
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It  is  this  quantity,  S,  which  will  be  used  when  discussing  the  information  content 
of  seismograms.  The  significance  of  different  types  of  phase  pair,  and 
combinations  of  phase  pairs,  is  of  great  practical  interest  in  the  study  of  focal 
mechanisms,  and  is  investigated  by  Pearce  (4). 

The  above  quantities  are  calculated  and  printed  out  for  each  phase 
pair,  and  for  the  cumulative  status  of  orientations  after  processing  each  phase 
pair. 

2.11  Partially  acceptable  orientations  -  use  of  the  variable  vector  length 

in  SUBROUTINE  PLOTV 

Although  a  vectorplot,  using  fixed  length  vectors  as  described  earlier 
in  section  2.8,  is  ideal  for  displaying  those  orientations  which  are  compatible 
with  single  phase  pairs,  or  with  a  well-behaved  series  of  phase  pairs,  as  in  the 
example  of  figure  1,  its  usefulness  for  a  series  of  phase  pairs  is  limited  by  the 
fact  that  only  one  anomalous  phase  pair  may  be  needed  to  eliminate  all 
compatible  orientations,  in  which  case  no  vectors  are  plotted,  and  all  information 
is  lost.  In  such  cases  it  is  desirable  to  have  information  on  the  most  compatible 
orientations  in  order  to  identify  and  study  anomalous  phase  pairs  more  easily.  In 
order  to  provide  for  this,  PLOTV  can  alternatively  generate  "variable  length 
vectorplots"  using  vectors  of  different  lengths  which  denote  possible  values  of  a 
several-valued  variable.  When  this  is  requested,  any  completely  compatible 
orientations  are  plotted  using  a  full  length  vector  as  before,  but,  in  addition,  the 
program  retrieves  from  the  orientation  array  those  orientations  which  are 
incompatible  with  one  or  more  phase  pairs,  and  plots  them  as  shorter  vectors  - 
the  shortness  of  the  vector  denoting  the  number  of  incompatible  phase  pairs;  the 
number  of  vector  lengths  is  a  variable  (NVL)  which  is  supplied  by  the  user.  Thus, 
a  full  length  vector  corresponds  to  "all  phase  pairs  compatible"  and  the  shortest 
length  vector  corresponds  to  "NVL-1  phase  pairs  are  incompatible"  -  inter¬ 
mediate  values  being  represented  by  corresponding  intermediate  lengths.  By 
specifying  the  number  of  vector  lengths  (using  NVL)  the  user  controls  the 
threshold  of  compatibility  below  which  no  vector  is  plotted.  In  this  way  the  user 
is  able  to  obtain  uncluttered  displays  which  clearly  show  the  regions  of  maximum 
compatibility  in  cases  where  no  orientations  are  compatible  with  all  phase  pairs. 
This  can  be  achieved  by  choosing  a  value  of  NVL  which  eliminates  the  large 
number  of  unwanted  vectors  corresponding  to  orientations  which  are  compatible 
with  only  a  small  number  of  phase  pairs.  By  restricting  NVL  in  this  way,  the 
important  areas  of  the  plot  are  emphasised,  and  it  helps  to  enable  the  different 
vector  lengths  to  be  resolved  visually.  This  is  also  helped  by  having  a  long  full 
length  vector.  The  length  of  the  maximum  length  vector  depends  on  the  number 
of  values  of  and  of  6  in  the  search  mesh,  and  the  consequent  visual  resolution 
of  vector  lengths  sets  an  upper  limit  on  the  useful  value  of  NVL.  Since  it  is 
usually  desirable  to  have  most  of  the  plot  free  from  vectors  when  all  phase  pairs 
have  been  included,  NVL  should  be  set  to  one  or  two  more  than  the  minimum 
number  of  incompatible  orientations  when  all  phase  pairs  have  been  included. 


As  in  the  case  of  the  fixed  length  vectorplot,  described  earlier, 
listings  of  partially  acceptable  orientations  and  corresponding  variable  length 
vectorplots  can  be  generated  after  processing  each  phase  pair;  these  are  referred 
to  as  "cumulative  partially  acceptable  orientations",  and  are  controlled  by  the 
variables  IPRNT3  and  IPLOT3.  Again,  after  the  final  phase  pair,  listings  and  plots 
of  "orientations  partially  compatible  with  ail  phase  pairs"  can  be  generated,  and 
are  controlled  by  IPRNT5  and  IPLOT5. 


Storage  of  partially  acceptable  orientations  requires  the  elements  of 
the  logical  orientation  array  F  to  contain  more  information  than  is  possible  using 
only  the  two  logical  values  "TRUE"  and  "FALSE".  To  avoid  die  need  for 
additional  storage  space  each  logical  element  must  be  used  as  a  several-valued 
variable,  and  the  method  of  achieving  this  is  described  in  appendix  G. 

As  an  example  of  a  variable  length  vectorplot  with  a  useful  value  of 
NVL,  the  seismograms  of  figure  1  are  again  used.  Figure  10  shows  the 
orientations  partially  compatible  with  all  the  nine  phase  pairs,  using  4  vector 
lengths  (NVL  =  4).  As  expected,  the  full  length  vectors  in  figure  10  correspond 
egactly  with  those  of  figure  9,  except  that  a  search  increment  of  10°  instead  of 
5°  is  used  in  order  to  resolve  more  clearly  the  additional  (shorter)  vectors  which 
indicate  those  orientations  that  are  incompatible  with  one,  two  or  three  of  the 
hine  phase  pairs.  It  is  seen  from  figure  10  that  there  are  no  additional  classes  of 
fault  which  become  compatible  if  any  one  or  even  two  phase  pairs  are  omitted, 
but  the  exclusion  of  three  phase  pairs  permits  a  number  of  strike  slip  types  of 
fault  to  become  compatible. 

It  is  emphasised  that  the  option  to  plot  partially  acceptable 
orientations  is  in  no  way  intended  to  detract  from  the  principle  that  a  given 
orientation  is  either  "acceptable"  or  "unacceptable".  The  option  is  only  intended 
to  assist  in  the  study  of  anomalous  seismograms  or  sources,  and  the  choice  of  a 
"most  compatible  oreintation"  as  a  "best  fit"  source  orientation  should  not  be 
made  without  adequate  explanation  of  the  incompatible  phase  pairs. 

The  subroutine  (PLOTV),  which  was  written  to  display  values  in  the 
orientation  array  as  described  above,  is  quite  general,  providing  for  vectorplots 
of  any  three-dimensional  array  whose  elements  are  either  logical  or  several¬ 
valued  -  although  it  is  most  suitable  for  cases  where  at  least  one  dimension 
corresponds  to  an  angle.  There  is  also  clearly  an  upper  limit  to  the  array 
dimensions  (ie,  number  of  mesh  points)  and  the  number  of  values  (ie,  of  discrete 
vector  lengths)  which  can  be  displayed  on  a  convenient  size  plot.  The  subroutine 
PLOTV  is  listed  in  appendix  I. 

2.12  Searching  restricted  regions  of  orientation  space 

In  the  previous  discussion  it  has  been  assumed  that  the  user  wishes  to 
search  systematically  all  possible  source  orientations,  and  this  is  normally 
necessary  to  ensure  that  no  compatible  type  of  orientation  is  omitted.  However, 
there  are  certain  situations  where  it  may  be  advantageous  to  search  only  within  a 
restricted  region  of  orientation  space;  it  enables  considerable  computing  time  to 
be  saved,  and  it  enables  a  finer  search  increment  to  be  used  without  increasing 
program  storage. 

In  order  to  provide  for  this,  there  is  an  option  to  specify  any  upper 
and  lower  bounds  on  slip  angle,  dip  and  strike,  which  lie  within  those 
corresponding  to  the  "whole  space"  defined  in  appendix  F,  namely  d  c  180°, 
d  180  and  d  g  a*  360  .  The  search  is  then  only  conducted  within  the 

rectilinear  range  of  orientations  so  defined. 
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Details  of  the  consequent  saving  in  computing  time  are  given  in 
section  Di  of  appendix  D.  As  for  the  search  increment  d  (corresponding  to 
DINCIN),  this  can  be  decreased  provided  the  specified  upper  and  lower  limits  on 
a  slip  angle,  dip  and  strike  are  such  that  the  number  of  search  increments  in  each 
angle  separately  does  not  exceed  the  number  of  search  increments  for  DINCIN  = 
5°over  the  whole  space  (ie,  36  for  the  slip  angle  and  dip,  and  72  for  the  strike). 
If  it  is  desired  to  change  these  overall  maxima,  then  the  program  storage  must  be 
altered,  instructions  for  which  are  given  in  section  D2  of  appendix  D. 

When  searching  within  a  restricted  region  of  orientation  space,  the 
search  proceeds  exactly  as  described  for  a  search  over  all  orientation  space,  and 
the  corresponding  vectorplots  extend  only  over  the  limited  range.  Since  the 
vectorplot  is  then  expanded  to  fill  the  plotting  frame,  this  permits  longer  vector 
lengths,  which  is  particularly  valuable  when  plotting  partially  acceptable 
orientations  on  a  variable  length  vectorplot,  as  explained  in  section  2.11.  The 
signficance  values  and  other  related  quantities  defined  in  section  2.10  are  also 
calculated  in  the  same  way,  but  calculation  of  the  fraction  of  acceptable 
orientations,  and  the  significance,  assumes  that  there  are  no  additional 
orientations  which  are  compatible  outside  the  restricted  region  of  search. 

The  following  describes  two  types  of  situation  in  which  it  may  be  of 
value  to  limit  searches  to  a  restricted  region  of  orientations. 

First,  considerable  computing  time  and  space  can  be  saved  jsee 
section  Dl  of  appendix  D)  by  following  a  coarse  search  (say  with  DINCIN  =  10°  or 
15°)  by  a  finer  search  (say  with  DINCIN  =  2°  or  even  1°)  over  the  restricted 
regions  of  orientation  space  which  the  coarse  search  has  shown  to  be  most  nearly 
compatible  with  the  data.  This  is  more  likely  to  be  appropriate  for  large  deep 
earthquakes,  where  long  period  seismograms  from  a  large  number  of  stations  may 
be  available.  It  should  be  remembered  that  the  tendency  for  a  preliminary  coarse 
search  (say,  with  DINCIN  =  10°  or  15°)  to  completely  miss  compatible  regions 
can  be  overcome  by  plotting  partially  acceptable  orientations  as  described  in 
section  2.11,  which  will  still  enable  the  regions  of  most  compatibility  Jo  be 
defined,  prior  to  conducting  a  finer  search  (say,  with  DINCIN  =  2  or  1°).  In 
general,  regions  of  compatible  orientations  will  occur  in  pairs,  corresponding  to 
interchange  of  fault  and  auxiliary  planes,  and  these  regions  can  be  searched 
separately.  If  the  required  range  of  strikes  for  a  required  region  spans  north  (ie, 
360°),  it  will  again  be  necessary  to  divide  this  into  two  search  regions  -  one 
either  side  of  north.  If  the  required  range  of  dips  or  slip  angles  borders  on  the 
limits  of  orentation  space,  then  it  may  be  desirable  to  check  that  there  are  no 
acceptable  orientations  beyond  these  limits.  In  order  to  do  this  it  is  necessary  to 
know  where  in  the  orientation  space  a  given  type  of  orientation  "reappears"  after 
reaching  the  boundary  of  the  space  in  a  given  direction,  so  that  another  search 
region  can  be  specified.  The  recurrence  pattern  of  slip  angle,  dip  and  strike 
beyond  their  principal  values  is  given  in  appendix  F,  and  is  illustrated  in  figure 
14. 

The  second  use  for  restricted  region  searches  is  in  the  investigation 
of  the  change  in  mutual  compatibility  of  phase  pairs  when  uncertain  input 
parameters  are  perturbed.  For  example,  cases  have  been  found  where  all  phase 
pairs  are  nearly  consistent  with  a  certain  range  of  double  couple  orientations,  but 
no  orientations  exist  which  are  compatible  with  all  the  phase  pairs  simult¬ 
aneously  (4).  Remembering  from  section  2.3.4  that  such  quantities  as  source 
layer  velocities  are  always  themselves  uncertain,  perturbation  of  such  quantities 
may  change  the  orientations  which  are  compatible  with  each  phase  pair  in  such  a 
way  as  to  render  some  orientations  compatible  with  all  phase  pairs. 


For  studying  the  effect  of  changing  takeoff  angles  (ALPHA  and 
GAMMA)  their  values  can  be  altered  directly  if  the  option  to  specify  them 
directly  is  being  used  (this  is  controlled  by  INDANG,  see  section  2.5). 
Alternatively,  if  takeoff  angles  are  set  within  the  program  from  focal  depth 
(DEPTH)  and  epicentral  distance  (DIST),  then  all  takeoff  angles  can  be  changed 
systematically  by  altering  the  source  layer  P  velocity  (VPSRCE)  for  shallow 
earthquakes  (with  DEPTH  =  0),  or  by  altering  DEPTH  for  deep  earthquakes.  Note 
that  when  takeoff  angles  are  set  from  DIST  for  the  shallow  earthquake  case,  then 
because  the  takeoff  angle  is  corrected  for  VPSRCE  using  Snell's  law,  it  follows 
that  angles  at  the  surface  are  unchanged  unless  VPSURF  is  changed.  A  third 
method  of  studying  the  effect  of  changing  takeoff  angles  is  to  apply  a  systematic 
correction  to  all  phase  pairs  using  ANGPF  and/or  ANGPPF  as  explained  in 
section  2.5. 


Perturbation  of  the  surface  layer  velocities  VPSURF  and  VSSURF 
changes  the  reflection  coefficients  at  the  surface  (especially  that  of  sP)  by 
implicitly  changing  the  ray  angles  at  the  surface.  For  undersea  earthquakes  an 
additional  second  order  change  is  obtained  by  altering  the  surface  layer  density 
DSURF. 


PPFCTF  and  SPFCTF  (see  section  2.6.2)  provide  for  systematic 
perturbation  of  the  amplitude  lost  by  the  surface  reflected  phases  due  to 
attenuation  or  discontinuities  above  the  source  (other  than  at  the  surface). 
(PPFCTF  and  SPFCTF  also  provide  a  convenient  means  of  applying  the  same 
value  of  PPFCT1  or  SPFCT1  to  ail  phase  pairs  without  specifying  a  value  on  each 
card.) 


The  perturbation  studies  described  above  are  most  conveniently 
carried  out  at  high  resolution  (say  with  DINCIN  =  1°  or  2°)  within  the  restricted 
range(s)  of  source  orientations  of  interest.  Such  studies  are  mainly  intended  for 
identifying  and  explaining  the  origin  of  anomalous  phase  pairs  (or  sets  of  phase 
pairs),  as  in  the  case  of  the  options  to  print  and  plot  partially  acceptable 
orientations  described  earlier. 

The  option  to  search  a  restricted  region  of  orientation  space  is 
brought  into  effect  using  the  variable  REGION.  The  angular  limits  of  search  must 
then  be  specified  using  the  variables  PS11,  PSIN,  DELTA1,  DELTAN,  STRIK1  and 
STRIKN. 


As  an  example  of  a  search  over  a  restricted  region  in  orientation 
space  we  again  refer  to  the  example  of  figure  1.  Figure  11  shows  those 
orientations  which  are  comj^tible  with  all  nine  phase  pairs,  as  deduced  from  a 
search  at  an  increment  of  3W  over  the  restricted  regions  of  search  shown  (these 
regions  would  normally  have  been  chosen  after  a  coarse  search  -  say,  with  a  10° 
mesh  -  over  all  space).  The  regions  of  orientation  space  represented  in  figure  11 
represent  about  one-eighth  of  ail  orientations,  and  used  about  half  of  the 
computing  time  used  to  produce  figure  9. 

2.13  Data  manipulation,  and  the  uses  of  input-results  and  a  third  output 

device 


The  previous  discussion  has  shown  how  different  features  of  the 
program  FALT  can  be  applied  to  the  study  of  relative  amplitude  data  in  a  variety 
of  circumstances.  Now  we  consider  how  the  input  information  already  described 
is  read  into  the  program  and  further  special  features  are  introduced  which  are 
aimed  at  minimising  the  demand  on  computing  facilities,  and  which  provide  for 
more  convenient  manipulation  and  alteration  of  the  data. 
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2.13.1  Organisation  of  standard  input 


It  has  been  established  that  the  single  relative  amplitude  observation 
is  the  phase  pair,  which  is  individually  processed  to  yield  those  source 
orientations  with  which  it  is  compatible.  For  a  given  earthquake,  any  number  of 
such  phase  pairs  can  be  processed,  during  which  cumulative  information  on 
compatible  orientations  is  retained,  providing  us  at  the  end  with  those 
orientations  which  are  compatible  (and  maybe  partially  compatible)  with  all 
phase  pairs.  The  data  required  to  initiate  the  above  sequence  of  computations 
will  be  referred  to  as  a  data  block. 

The  standard  input  of  a  data  block  begins  with  a  title  card  (Card  1) 
which  describes  the  earthquake  and  if  required  identifies  any  special  feature  of 
this  particular  data  block.  This  is  followed  by  a  card  containing  all  the 
parameters  which  must  remain  constant  within  the  data  block  (Card  2).  These 
include  the  number  of  phase  pairs,  the  search  increment  in  orientation  space,  the 
source  and  surface  layer  velocities  and  other  parameters  for  the  calculation  of 
pP  and  sP  reflection  coefficients,  and  the  various  output  options.  This  card  also 
has  the  provision  to  specify  that  only  a  restricted  range  of  source  orientations  be 
searched,  and  if  so  the  details  of  the  search  limits  are  given  on  an  additional  card 
(Card  2A).  There  then  follows  one  card  for  each  phase  pair  (Card(s)  3);  a  phase 
pair  card  includes  the  station  name,  its  azimuth  and  distance  from  the 
earthquake,  the  takeoff  angle  of  P  (and  pP  if  different),  a  code  indicating  the 
type  of  phase  pair  which  this  card  relates,  the  upper  and  lower  bounds  on  their 
amplitudes  in  arbitrary  units  (with  any  polarity  specifications),  and  any  path 
correction  factors  to  be  applied  to  calculated  amplitudes.  All  input  formats  are 
given  in  appendix  B. 

It  is  noted  that  each  phase  pair  corresponds  to  one  input  card,  and 
that  the  phase  pairs  are  processed  sequentially  according  to  the  order  of  these 
cards.  It  follows  that  the  order  of  the  phase  pair  cards  does  not  affect  the  final 
result,  although  it  does  affect  the  way  in  which  the  cumulative  results  develop  as 
successive  phase  pairs  are  processed.  It  may  be  desirable  to  place  all  phase  pair 
cards  for  a  single  station  together,  in  order  to  see  how  much  each  successive 
station  further  constrains  the  orientation.  Alternatively,  it  may  be  sensible  to 
place  cards  with  doubtful  or  poor  quality  measurements  at  the  end  in  order  to 
avoid  contaminating  the  cumulative  results  at  an  early  stage.  Whatever  the 
requirements,  phase  pairs  can  be  re-ordered,  removed  or  added  to  the  data  block 
merely  by  manipulating  individual  cards,  and  ensuring  that  the  correct  total 
number  is  entered  in  NOP  on  Card  2. 

Not  only  can  the  sequence  of  the  phase  pairs  from  a  given  earthquake 
be  changed  within  the  data  block  to  obtain  a  different  cumulative  status  of  the 
orientation  array,  but  there  may  also  be  reason  to  divide  the  phase  pairs  into 
more  than  one  data  block.  For  example,  the  constraint  imposed  on  the  source 
orientation  by  each  seismogram  may  be  required  separately.  Referring  again  to 
the  example  of  figure  1  we  might  ask  how  the  three  seismograms  compare  in 
their  ability  to  constrain  the  source  orientation  (or  how  the  significance  value  of 
each  seismogram  compares).  In  this  case  each  station,  comprising  three  phase 
pairs  in  this  example,  is  run  as  a  separate  data  block.  However,  in  order  to  find 
the  total  constraint  imposed  by  all  three  seismograms  it  would  then  be  necessary 
to  re-run  all  nine  phase  pairs  in  one  data  block,  as  was  done  to  produce  figure  9. 

Other  types  of  investigation  can  be  envisaged  where  it  is  necessary  to 
re-run  a  data  block  several  times  with  only  minor  changes  or  corrections  to  one 
or  two  of  its  phase  pairs.  A  common  feature  of  such  manipulations  is  that 


identical  processing  of  the  same  phase  pairs  is  repeated,  perhaps  many  times, 
during  the  course  of  a  study.  Since  the  searching  of  orientation  space  for  a  given 
phase  pair  is  the  main  computational  burden  of  the  program,  its  unnecessary 
repetition  would  constitute  a  major  source  of  inefficiency  in  the  uses  of 
computing  resources. 

2.13.2  Output  into  a  third  output  device 

In  order  to  overcome  the  above  problem,  the  program  is  provided  with 
an  option  to  ultilise  a  "third  output  device"  (in  addition  to  the  printer  and  the 
plotter)  into  which  the  results  from  a  data  block  can  be  written  in  a  standard 
format,  and  in  a  machine-readable  form.  An  additional  feature  enables  this 
standard  output  (then  called  an  input-resuit)  to  be  re-read  and  incorporated  into 
a  subsequent  data  block  without  the  need  to  reprocess  the  corresponding  set  of 
phase  pairs.  Output  into  a  third  output  device  -  which  might  be  a  disc,  magnetic 
tape  or  punched  cards  -  and  the  ability  to  read  this  output  subsequently  as  an 
input-result  enables  data  blocks  containing  one  or  more  of  the  same  phase  pairs 
to  be  re-run  without  the  time-consuming  process  of  conducting  a  search  in 
respect  of  the  same  phase  pair  more  than  once.  When  this  additional  output  is 
requested,  it  is  obtained  in  addition  to  the  usual  print  and  plot  outputs,  and  is  in 
two  parts  whose  contents  and  formats  are  given  in  appendix  C.  The  first  part  is  a 
record  of  the  input  parameters  of  the  data  block,  and  contains  the  input  details 
of  each  of  its  phase  pairs,  with  the  number  of  compatible  orientations  and  the 
significance  value  calculated  for  each.  The  second  part  contains  the  complete 
status  of  the  orientation  array  after  processing  of  the  data  block  is  complete; 
that  is,  it  contains  any  orientations  which  are  compatible  with  all  phase  pairs  in 
the  data  block,  and  also  those  orientations  which  are  partially  compatible  with 
all  phase  pairs  if  these  were  retained  (ie,  if  NVL  >  1). 

The  number  of  the  device  into  which  the  above  output  is  written  is 
specified  using  NDEV3,  and  the  output  has  been  designed  with  the  view  to 
meeting  other  requirements  for  subsequent  processing  as  well  as  that  of  re¬ 
reading  into  this  program  as  an  input -result.  IDEV3  controls  the  output,  and  there 
are  three  options.  First,  no  output  is  written  into  the  device;  secondly,  only  the 
first  section  of  output  described  above  is  written.  This  is  primarily  intended  for 
theoretical  studies,  such  as  the  plotting  of  graphs  of  significance  against 
amplitude  bounds,  takeoff  angle  or  other  input  variable,  as  studied  by  Pearce  (4). 
It  could  be  used  for  any  case  where  a  summary  of  results  for  each  phase  pair  is 
needed  for  further  processing,  but  where  the  (generally  much  longer)  status  of 
the  orientation  array  is  not  needed. 


The  third  option  is  to  write  both  the  first  and  second  sections  of  the 
output  as  described  above,  and  this  option  is  used  to  generate  an  input-result,  to 
be  re-read  into  this  program  as  described  below.  This  third  option  may 
alternatively  be  required  for  presenting  the  compatible  orientations  in  another 
form,  either  for  producing  improved  quality  plots  as  in  figures  9,  10  and  11  using 
the  program  PUBV  (section  2.8),  or  for  plotting  equivalent  pairs  of  great  circles 
on  a  stereographic  net.  This  third  option  also  provides  for  the  output  of 
compatible  source  orientations  for  possible  input  into  a  program  to  select  those 
orientations  which  are  also  compatible  with  given  pulse  durations,  as  interpreted 
in  terms  of  Doppler  effects  caused  by  rupture  propagation  (11).  This  is  a  possible 
means  of  discriminating  between  fault  and  auxiliary  plane  by  allowing  for  the 
finite  size  of  sources,  and  becomes  particularly  viable  for  elongated  faults.  Such 
a  program  is  in  preparation. 


In  principle  one  can  use  the  output  feature  described  above  to 
assemble  a  series  of  input -results,  each  corresponding  to  a  different  data  block, 
relating  to  different  observations  of  the  same  earthquake.  In  a  further  data 
block,  which  could  be  in  the  same  or  a  subsequent  job  step,  or  in  a  subsequent 
program  run,  any  of  these  input-results  can  be  re-read.  This  is  done  by  replacing 
one  or  more,  or  indeed  all,  of  the  phase  pair  cards  in  the  new  data  block  by  one 
or  more  cards,  each  of  which  commands  an  input-result  to  be  read  in  from  a 
specified  input  device.  The  program  recognises  such  an  input-result  card  which  is 
blank,  except  for  the  number  of  the  device  from  which  the  input-result  is  to  be 
read,  which  is  NDEV.  Instead  of  processing  a  phase  pair,  the  program  reads  in  the 
input-result  from  the  specified  device.  (If  the  device  corresponds  to  punched 
cards,  the  deck  must  be  inserted  immediately  after  the  corresponding  input- 
result  card.)  The  program  prints  out  the  details  of  its  constituent  phase  pairs,  as 
retrieved  from  the  input-result.  The  orientations  compatible  and  partially 
compatible  with  all  the  phase  pairs  (also  retrieved  from  the  input-result)  are 
printed  and  plotted  as  required  by  IPRNT1  and  IPLOT1,  and  the  status  of  the 
orientation  array  from  the  input-result  is  combined  with  that  of  the  current  data 
block.  Cumulative  acceptable  orientations  and  cumulative  partially  acceptable 
orientations  are  then  printed  and  plotted  as  after  a  phase  pair,  but  this 
cumulative  information  on  those  orientations  which  are  compatible  or  partially 
compatible  with  all  previous  phase  pairs  now  implicitly  includes  those  phase  pairs 
contained  in  the  input-result.  Thus,  the  processing  of  an  input-result  card  in  a 
data  block  is  exactly  equivalent  to  processing  the  set  of  phase  pair  cards  to 
which  it  corresponds,  except  that  computing  time  is  saved  because  orientation 
searches  in  respect  of  these  phase  pairs  are  avoided. 

For  example,  suppose  a  data  block  contains  nine  phase  pair  cards 
which,  for  convenience,  we  number  sequentially.  In  run  1,  phase  pairs  1  to  9  are 
processed  in  that  order.  In  run  2,  phase  pairs  4  to  fc'  are  processed  and  an  output 
into  a  specified  device  is  obtained.  In  run  3,  phase  pairs  l  to  3  are  followed  by  an 
input-result  card  commanding  the  input-result  from  run  2  to  be  read  in.  Phase 
pairs  7  to  9  then  follow.  Runs  1  and  3  are  then  exactly  equivalent.  In  this 
particular  example,  as  well  as  yielding  identical  final  results,  the  cumulative 
status  of  the  orientation  arrays  is  also  identical  for  runs  1  and  3,  except  that 
during  run  3  the  orientation  array  is  "updated"  by  the  combined  effects  of  phase 
pairs  4,  5  and  6  together  -  the  cumulative  effect  of  the  individual  phase  pairs  4,  5 
and  6  being  unknown  to  run  3.  The  computing  time  required  for  run  3  is  about  2/3 
that  required  for  run  1. 

It  must  be  remembered  that  all  manipulations  using  input-results 
must  relate  to  data  blocks  which  have  the  same  search  increment,  search  region 
in  orientation  space,  and  number  of  vector  lengths;  all  input-results  are  tested 
for  such  compatibility  when  they  are  read  in,  and  any  which  do  not  satisfy  these 
requirements  are  skipped  by  the  program.  It  is,  however,  left  to  the  user  to 
ensure  that  other  parameters,  such  as  structural  variables,  factors  and  the 
earthquake  parameters,  are  also  compatible,  as  is  required  to  maintain  the 
"integrity"  of  the  results.  It  must  also  be  remembered  that  the  variable  NOP  on 
Card  2  always  corresponds  to  the  total  of  phase  pair  cards  plus  input-result 
cards. 

The  principle  of  manipulating  data  using  input-results  which  is 
introduced  above  can  be  applied  quite  generally  to  satisfy  many  types  of 
processing  requirement,  as  the  following  examples  of  its  application  show. 


As  already  suggested,  we  may  wish  to  know  the  constraint  imposed  on 
the  source  orientation  by  each  seismogram.  In  this  case  the  phase  pairs 
corresponding  to  each  seismogram  are  brought  together  and  run  as  separate  data 
blocks,  an  input-result  being  obtained  from  each.  The  constraint  imposed  on  the 
source  orientation  by  all  the  seismograms  together  can  then  be  obtained  with 
little  additional  computation  by  running  a  data  block  which  contains  all  the 
corresponding  input -result  cards.  Because  this  data  block  contains  no  phase  pair 
cards  at  all,  computation  is  very  fast.  Further,  this  data  block  can  now  be  re-run 
"economically"  with  the  input-results  in  any  order  as  required. 

In  another  example,  a  problem  may  arise  if  the  number  of  phase  pairs 
to  be  processed  is  so  large  that  it  requires  more  computing  time  than  is  available 
for  a  single  job.  This  is  more  likely  to  happen  for  deep  earthquakes  where  a  large 
number  of  long  period  seismograms  may  be  available.  Here  it  is  not  necessary  to 
run  each  seismogram  as  a  separate  data  block,  but  instead  the  seismograms  can 
be  divided  into  several  sets  of  phase  pairs,  each  of  which  can  be  processed  within 
the  available  job  time.  The  input-result  obtained  from  each  set  can  then  be 
combined  in  a  final  data  block.  Alternatively,  it  is  possible  to  run  the  program 
exactly  as  if  all  the  seismograms  were  being  processed  in  the  same  data  block. 
The  first  set  of  phase  pairs  is  processed  as  one  data  block.  In  a  second  job,  the 
data  block  comprises  the  second  set  of  phase  pairs,  preceded  by  one  input-result 
card  corresponding  to  the  input-result  obtained  from  the  first  set.  If  there  is  a 
third  set  of  phase  pairs,  it  would  begin  with  the  input-result  card  corresponding 
to  the  input-result  derived  from  the  second  set.  By  repeating  this  process  as 
many  times  as  necessary  the  cumulative  status  of  acceptable  orientations 
develops  exactly  as  if  the  several  sets  of  phase  pairs  were  all  processed 
sequentially  in  one  data  block. 

In  the  above  procedure  it  is  seen  that  the  second  data  block,  which 
generates  the  input-result  for  the  third  data  block,  itself  contains  an  input-result 
card  as  well  as  phase  pair  cards.  This  has  no  effect  on  the  input-result  generated 
by  the  second  data  block  since  the  details  of  each  successive  phase  pair  are 
recorded  in  the  output  with  no  attention  being  paid  to  whether  it  was  processed 
in  that  data  block,  or  was  part  of  an  input-result.  Thus,  the  phase  pairs  which 
correspond  to  a  given  input-result  need  not  necessarily  have  been  originally 
processed  in  the  data  block  which  generated  that  input-result. 

In  yet  another  example  each  phase  pair  could  be  processed  in  a  data 
block  on  its  own,  thereby  obtaining  a  separate  input-result  for  each.  A  final  data 
block,  containing  all  the  corresponding  input-result  cards,  then  combines  them  as 
if  they  were,  instead,  the  phase  pair  cards.  Because  this  final  data  block  is 
thereby  processed  rapidly  it  is  suitable  for  any  studies  where  different  ordering 
of  the  phase  pairs  is  required  (for  example,  to  group  types  of  phase  pair, 
seismograms,  etc).  A  further  use  arises  where  the  data  block  is  to  be  repeated 
with  only  minor  changes  to  one  or  two  of  the  phase  pairs.  The  corresponding 
input-result  cards  are  then  merely  replaced  by  their  corresponding  (modified) 
phase  pair  cards  as  required  for  successive  runs,  so  that  orientation  searches  only 
occur  in  respect  of  any  phase  pairs  which  have  been  modified.  The  format  of  an 
input-result  is  identical  to  the  format  of  output  to  a  third  device,  and  is  given  in 
appendix  C. 
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3. 


CONCLUDING  REMARKS 


To  conclude,  the  relative  amplitude  method  is  compared  with  the 
traditional  method  of  determining  source  orientations  by  first  motions,  and  this 
comparison  is  used  to  highlight  advantages  of  the  relative  amplitude  method. 

The  determination  of  nodal  plane  orientations  for  assumed  double 
couple  earthquakes  by  traditional  "first  motion"  methods  utilises  only  the 
observed  polarity  of  the  initial  P  wave  at  each  seismic  station  (occasionally 
supplemented  by  some  S  wave  polarisation  measurements).  The  process  of  finding 
an  orientation  which  divides  these  readings  into  the  four  expected  alternate 
polarity  quadrants  on  the  focal  sphere  relies  both  upon  ideal  behaviour  of  the 
source,  and  upon  correct  and  unambiguous  observation  at  all  receivers.  If,  for 
whatsoever  reason,  there  is  no  source  orientation  which  satisfies  alj  the  readings, 
then  polarities  alone  are  generally  insufficient  to  permit  investigation  of  the 
origin  of  the  "anomalous"  behaviour.  Mutually  incompatible  polarity  readings  are 
a  common  feature  of  solutions  for  smaller  earthquakes,  or  for  earthquakes  which 
include  readings  from  short  period  seismograms.  Although  long  period  seismo¬ 
grams  are  more  "stable"  in  this  respect,  careful  comparison  between  waveforms 
at  different  stations  and  an  accurate  awareness  of  the  instrument  response  are 
vital  if  unusual  types  of  waveform  are  to  be  interpreted  correctly. 

In  some  cases  an  uneven  distribution  of  stations  can  result  in  the 
chosen  orientation  being  fixed  by  only  a  small  number  of  readings.  Alternatively, 
there  may  be  a  large  range  of  orientations  compatible  with  the  data,  the 
likelihood  of  this  being  increased  by  the  fact  that  teleseismic  P  waves  can,  at 
best,  sample  only  a  small  annulus  of  the  lower  focal  hemisphere.  The  situation  is 
further  complicated  if  "uncertain"  polarity  readings  are  included. 

These  difficulties,  and  the  problems  posed  by  uncertain,  inconsistent 
or  inadequate  polarity  readings,  have  fostered  the  development  of  algorithms 
which  calculate  a  "best  fit"  source  orientation  in  some  statistical  sense,  by 
maximising  the  mutual  compatibility  of  the  available  data  (9,12-17).  Such 
algorithms  typically  involve  the  use  of  weighting  factors  which  may  be  of  two 
types.  First,  a  priori  weighting  factors  may  be  applied  to  the  input  polarity 
readings  in  order  to  quantify  their  uncertainty.  This  was  considered  by  Udias  and 
Baumann  (15)  and  Keiiis-Borok  et  al.  (17).  Secondly,  a  posteriori  weighting 
factors  may  be  applied  by  the  algorithm  itself,  either  to  suppress  inconsistent 
polarities,  or  to  militate  against  stations  which  are  near  to  one  of  a  provisionally 
calculated  pair  of  nodal  planes.  Various  such  schemes  have  been  used  (12-14, 16- 
18).  Such  algorithms  are  unable  to  place  well-founded  confidence  limits  upon 
their  calculated  "best  fit"  orientations.  An  algorithm  by  Guinn  and  Long  (10) 
delineated  compatible  ranges  of  orientations  instead  of  maximising  a  criterion 
function,  but  for  non-ideal  data  sets  they  had  to  "allow"  one  or  more  inconsistent 
polarities  to  obtain  any  acceptable  range. 

It  must  be  emphasised  that,  in  reality,  if  there  is  a  source  orientation 
which  is  compatible  with  a  given  set  of  polarity  or  relative  amplitude  data,  then 
it  must  form  part  of  a  range  of  compatible  orientations,  which  may  assume  any 
shape  in  orientation  space,  and  which  may  be  split  into  more  than  one  region  in 
orientation  space.  Moreover,  it  is  important  to  remember  that,  within  an 
acceptable  range  of  orientations,  all  orientations  are  equally  probable.  If,  on  the 
other  hand,  no  orientations  are  compatible  with  a  given  set  of  data,  then  this 
anomalous  behaviour  must  be  attributable  to  a  specific  cause,  such  as  an 
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anomalous  source  or  incorrect  observation,  and  is  not  in  itself  a  justification  for 
adopting  the  "most  compatible"  orientation.  The  initial  P  wave  polarity  is  but  a 
small  fraction  of  the  source  information  present  in  each  seismogram,  since  the 
far  field  double  couple  radiation  pattern  possesses  angular  variation  in  P  wave 
amplitude  as  well  as  polarity,  and  also  has  an  S  wave  radiation  pattern  whose 
amplitude  and  polarisation  direction  have  angular  dependence.  Incorporation  of 
this  amplitude  information  into  focal  mechanism  determinations  would,  in 
theory,  do  much  to  overcome  the  problems  outlined  above,  but  previous  attempts 
to  include  this  extra  information  have  had  limited  success  because  the  observed 
absolute  amplitudes  are  dominated  by  the  different  effects  which  anelastic 
attenuation  and  scattering  have  on  each  phase.  Similar  problems  arise  when 
relating  the  amplitudes  between  any  two  phases  observed  at  different  stations,  or 
between  direct  P  and  direct  S  even  at  the  same  station.  Such  effects  cannot  be 
allowed  for  adequately,  and  therefore  conceal  the  true  signature  of  the  radiation 
pattern. 

The  use  of  relative  amplitudes  as  well  as  polarity  information,  and 
the  use  of  "100%  confidence  limits"  on  these  amplitudes  as  described  in  this 
report  together  overcome  many  of  the  shortcomings  described  above.  The 
following  specific  points  may  be  mentioned:- 

The  notion  of  using  100%  confidence  limits  means  that  the  uncer¬ 
tainty  of  each  measurement  is  embodied  in  the  program  input,  and  it  follows  that 
the  boundaries  of  the  resulting  compatible  regions  in  orientation  space  define 
equivalent  confidences.  This  direct  calculation  of  solutions  with  well-founded 
confidence  bounds  removes  any  need  to  specify  weighting  factors,  or  to  maximise 
a  criterion  function.  The  method  exploits  the  much  "richer"  signature  of  the 
source  orientation  which  is  present  in  amplitudes,  using  both  those  of  P  and  S, 
and  the  specification  of  confidence  limits  maximises  the  utilisation  of  informat¬ 
ion  provided  by  seismograms  of  differing  qualities,  enabling  effective  use  to  be 
made  of  poor  quality  seismograms.  Studies  have  shown  that  this  increase  in 
available  data  sometimes  enables  well-constrained  source  orientations  to  be 
computed  from  only  a  few  stations,  and  for  shallow  earthquakes  at  magnitudes 
below  which  first  motion  cannot  usually  be  read  with  certainty.  Alternatively, 
the  redundancy  of  information  provided  by  a  large  set  of  stations  offers  a  means 
of  testing  the  validity  of  the  double  couple,  or  indeed  any  other  radiation 
pattern.  (The  method  can  b«.  used  to  compute  "first  motion"  solutions  by  placing 
extremely  wide  bounds  on  every  amplitude.)  Graphic  presentation  of  the  results 
using  vectorplots  provides  for  easy  recognition  of  the  arbitrary  size  and  shape  of 
acceptable  regions  in  orientation  space,  and  it  also  enables  any  anomalous  or 
conflicting  measurements  to  be  easily  identified.  Special  features  of  the 
program,  notably  the  plotting  of  partially  compatible  orientations  and  the  option 
to  search  within  restricted  regions  of  orientation  space,  assist  in  investigation  of 
the  origin  of  any  such  anomalous  behaviour.  The  use  of  restricted  region 
searches,  and  of  input-results,  enables  such  studies  to  be  conducted  with  the 
minimum  of  computing  resources. 

The  generation  of  theoretical  seismograms,  for  example  by  the 
method  of  Hudson  (19,20)  and  Douglas  et  al.  (21),  requires  the  same  interpreta¬ 
tion  of  relative  amplitudes  as  that  described  above,  in  order  to  match  theoretical 
and  observed  seismograms  by  correct  choice  of  source  orientation.  The  present 
program  provides  a  systematic  means  of  choosing  such  a  source  orientation, 
together  with  a  quantitative  measure  of  its  non-uniqueness.  Furthermore,  the 
generation  of  theoretical  seismograms  which  reproduce  additional  features  of 


observed  recordings  provides  additional  support  for  the  initial  identifications  of 
the  phases  upon  which  the  validity  of  the  orientation  result  depends. 
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APPENDIX  A 


SCHEMATIC  DIAGRAM  OF  PROGRAM 

(The  following  gives  a  broad  guide  to  the  organisation  of  the  program, 
but  it  is  not  a  rigorous  flow  diagram.) 

Set  default  values  and  constants 


-►•READ  and  PRINT  earthquake  title  card  for  this  data  block 

READ  card  with  parameters  which  are  constant  for  the  data  block 

Test  validity  of  this  input,  correct  <f  necessary  and  calculate  related 
parameters 


Is  a  restricted  region  of, 
search  in  orientation 
space  requested? 


> 

<  > 


yes 

X 

READ  card  with  limits  of  region 


no,  ^ 

Test  validity  of  search  region  limits  and  calculate  related  parameters 

PRINT  details  of  input  from  previous  cards,  and  related  information 

Set  all  elements  of  orientation  array  to  initial  value 

Set  single  precision  parameters  for  the  plotting  routine  (SUB¬ 
ROUTINE  PLOTV) 

Calculate  sine  and  cosine  tables  for  required  angle  increment  of 
search  in  orientation  space 


READ  next  card 


Is  it  a  phase  pair  card 
or  an  input-result  card? 


.input-result 


phase  pair 


READ  header  cards  of  input- 
result  from  specified  input 
device 


r~ 

PRINT  message 
Skip  to  end 
of  input-result 


Is  this  input-result  compatible 
with  the  current  data  block? 

|  yes 

PRINT  details 

READ  input-result  and  PRINT 
details  of  its  constituent  phase 
pairs.  PRINT  and  PLOT 
orientation  array  as  requested 

Incorporate  input-result  into  the 
orientation  array  of  this  data 
block 

C 
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Which  two  phases  does  this  phase  pair  relate? 


P  and  pP  or  P  and 
pP(sea  surface) 


P  and  sP,  pP  and  sP  or  pPfsea 
surface)  and  sP 


PRINT  title  of  station  and 
phase  pair 

Test  validity  of  input  and 
calculate  related  parameters 

Calculate  required  reflection 
and  refraction  coefficients 

Does  the  amplitude  range  of 
either  phase  have  zero  width? 


PRINT  title  of  station  and  phase 
pair 

Test  validity  of  input  and 
calculate  related  parameters 

Calculate  required  reflection  and 
refraction  coefficients 

Does  the  amplitude  range  of 
.  either  phase  havq  zero  width7 


PRINT  PRINT 
message  message 

l  1 

D  D 


Do  the  amplitudes  of  both 
phases  span  or  bound  zero? 


Do  the  amplitudes  of  both  phases 
- - span  or  bound  zero7 

PRINT  PRINT 
message  message 


i  i 


Calculate  ranges  of 
amplitude  ratios  (pP/P  or 
pPfsea  surface)/P  is  used 
unless  P  amplitude  range 
includes  zero,  in  which  case 
the  reciprocal  is  used) 

PRINT  input  details  for 
this  phase  pair,  and  related 
information 

Set  related  parameters  and 
calculate  trig  expressions 

Set  up  plotting  frame  if 
PLOT  requested 


Calculate  ranges  of  amplitude 
ratios  (sP/P  or  sP/pP  or  sP/pP 
(sea  surface)  is  used  unless  the 
amplitude  range  of  the  P  phase 
includes  zero,  in  which  case  the 
reciprocal  is  used) 

PRINT  input  details  for  this  phase 
pair,  and  related  information 


Set  related  parameters  and 
calculate  trig  expressions 

Set  up  plotting  frame  if  PLOT 
requested 


Calculate  trig  expressions 


lalculate  trig  expressions 


Calculate  trig  expressions 


Calculate  trig  expressions 


Calculate  trig  expressions 

Calculate  takeoff  angle  of 
each  phase  in  co-ordinate 
system  of  radiation  pattern 

Calculate  expected  norma¬ 
lised  amplitude  of  P 


Calculate  normalised 
observed  amplitude  of  pP 
or  pP(sea  surface) 


Does  ratio  of  calculated 
amplitudes  lie  within  — 
allowable  range? 


!5/ 


Transform  strike  to  value 
measured  from  north 


PLOT  orientation  (CALL 
PLOTV)  if  requested 


PRINT  orientation  if 
requested 


Reduce  value  of 
orientation  array 
element  by  1,  or 
set  to  .FALSE. 


Calculate  trig  expressions 

Calculate  takeoff  angle  of 
each  phase  in  co-ordinate 
system  of  radiation  pattern 

Calculate  expected  norma¬ 
lised  amplitude  of  P  or  pP  or 
pP(sea  surface) 

Calculate  components  of 
normalised  shear  wave  ampli¬ 
tude  in  radiation  pattern  co¬ 
ordinate  system 

Calculate  polarisation  angle 
ip  radiation  pattern  co¬ 
ordinate  system 

Calculate  vertical  component 
of  shear  wave  and  hence 
normalised  observed  sP 
amplitude 

Does  ratio  of  calculated 
amplitudes  lie  within  .. 

allowable  range?  I 


T ransf orm  strike  to  value 
measured  from  north 


PLOT  orientation  (CALL 
PLOTV)  if  requested 


PRINT  orientation  if 
requested 


Reduce  value  of 
orientation  array 
element  by  I,  or 
set  to  .FALSE. 


c 


Calculate  and  PRINT  significance  values  and  related  information  for 
this  phase  pair  or  input-result 

If  requested,  PLOT  and  PRINT  cumulative  acceptable  orientations 

If  requested,  PLOT  and  PRINT  cumulative  partially  acceptable 
orientations,  and  PRINT  related  information 


-Is  there  another  card? 


If  requested,  PLOT  and  PRINT  orientations  compatible  with  all  phase 
pairs 

Calculate  and  PRINT  corresponding  significance  values  and  related 
information 

If  requested,  PLOT  orientations  partially  compatible  with  all  phase 
pairs  and  PRINT  related  information 

If  requested,  WRITE  status  of  orientation  array  and  related  informa¬ 
tion  into  specified  third  output  device 


■  Is  there  another  data  block? 


*If  restricted  region  of  search  in  orientation  space  is  requested  and  the  region  of 
strikes  requested  spans  the  azimuth  of  the  observation,  the  search  is  computed 
for  all  strikes  beyond  the  azimuth  for  all  required  slip  angles  and  dips,  and  the 
procedure  is  repeated  for  the  remaining  strikes. 


APPENDIX  B 


DESCRIPTION  AND  FORMAT  OF  INPUT  DATA 

A  concise  description  of  the  program  input  is  given  in  the  listing 
(appendix  H);  more  detailed  description  is  given  here.  Most  of  the  variables  are 
introduced  and  explained  in  section  2,  and  references  to  the  text  are  given  where 
appropriate. 

For  each  data  block,  input  is  as  follows:- 

Card  1  Title  card 

FORMAT  10A8 

TITLE  Title  of  earthquake. 

Columns  65  to  80  should  be  used  to  identify  this  data  block  if  more 
than  one  data  block  is  to  be  processed  in  respect  of  the  same 
earthquake. 

Card  2  Card  with  parameters  relating  to  the  earthquake,  and  processing 
options  for  this  data  block. 

FORMAT  I5,F5.0,F5.1,2F4.2,I2,10Ii,I2,I3,I3,I2,5F5.2,2F4.2,fl,Al 

NOP  Total  number  of  phase  pair  cards  and  input-result  cards  in  this  data 
block  (ie,  number  of  phase  pairs  plus  number  of  input-results). 
Comments  on  the  inclusion  of  all  relevant  phase  pairs  are  given  in 
section  2.4,  and  section  2.13  gives  guidance  on  how  to  organise  phase 
pairs,  input-results  and  data  blocks  to  meet  different  requirements. 

DINCIN  Angle  increment  for  search  (degrees)  (see  section  2.7).  This  is  set  in 
the  program  to  DINC,  which  is  adjusted  to  the  nearest  integer  sub¬ 
multiple  of  90°,  provided  that  there  is  sufficient  storage  in  the 
orientation  array,  F,  and  in  the  sine  and  consine  tables  SINTAB  and 
COSTAB,  which  are  here  set  to  provide  for  a  minimum  search 
increment  of  5°  if  all  orientation  space  is  included.  (A  finer  search 
increment  is  possible  for  restricted  region  searches,  see  section  2.12.) 
A  guide  to  required  computing  times  and  storage  is  given  in  section 
D1  of  appendix  D  and  instructions  for  modifying  the  storage  are  given 
in  section  D2  of  appendix  D.  If  DINCIN  0  or  >  90,  DINC  is  set  to  30 
(this  is  intended  for  test  purposes  only  and  is  too  coarse  for 
meaningful  results). 

Both  computer  time  and  storage  are  mainly  determined  by  DINC, 
which  can  be  set  to  provide  for  any  required  angular  resolution, 
having  regard  to  (1)  available  CPU  time  and  storage,  (2)  quality  of  the 
input  data,  and  (3)  the  size  of  the  region  in  orientation  space  over 
which  the  search  extends.  Computer  time  and  storage  are  both 
approximately  inversely  proportional  to  the  cube  of  DINC,  although 
this  is  only  important  when  processing  phase  pairs  -  the  processing  of 
input-results  being  comparatively  fast.  In  practice  DINCIN  =  5° 
provides  adequate  treatment  of  typical  data,  while  yielding  clear 
vectorplots  of  compatible  orientations;  a  higher  resolution  over  all 
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space  could  not  be  adequately  plotted  on  a  conventional  size  grid. 
DINC1N  =  10°  is  appropriate  for  a  coarse  search,  to  be  followed  by  a 
higher  resolution  search  over  restricted  regions  of  interest,  or  for 
theoretical  studies  such  as  the  plotting  of  graphs  of  significance 
against  an  input  variable.  DINCIN  =  1°  or  2°  is  suitable  for  restricted 
region  searches  with  good  quality  data,  in  particular  for  studies  of 
variations  in  the  acceptable  regions  as  a  function  of  uncertain  input 
parameters  such  as  surface  to  source  layer  velocity  ratio  or  takeoff 
angle. 

DEPTH  Depth  of  earthquake  (km).  Leave  blank  for  an  intracrustal  earth¬ 
quake.  Only  used  if  INDANG  h  0  (see  under  1NDANG  below,  and 
section  2.5). 

ANGPF  Perturbation  factor  for  systematically  adjusting  all  the  P  takeoff 
angles  calculated  or  read  in  for  each  phase  pair.  Each  P  takeoff  angle 
a  is  reset  to  sin”1  (ANGPF  x  sin  a),  so  that  the  adjustment  of  angles 
is  equivalent  to  multiplying  the  source  layer  velocity  by  a  factor 
ANGPF  for  this  purpose  only  (see  under  INDANG  below).  If  left  blank, 
is  set  to  1.0.  The  use  of  ANGPF  is  explained  in  section  2.5. 

ANGPPF  Perturbation  factor  for  systematically  adjusting  all  the  pP  takeoff 
angles  y,  as  for  ANGPF  above  (see  under  INDANG  below).  If  left 
blank,  is  set  to  1.0.  The  use  of  ANGPPF  is  explained  in  section  2.5. 

INDANG  Indicator  to  specify  how  P  and  pP  takeoff'  angles  are  calculated  (see 
section  2.5).  If  left  blank,  the  P  wave  takeoff  angle  is  read  directly 
for  each  phase  pair  (see  ALPHA  on  Card(s)  3).  If  INDANG  is  non-zero, 
the  P  takeoff  angle  is  determined  for  each  phase  pair  from 
distance/depth  tables  contained  within  the  program,  using  DEPTH 
from  this  card,  and  DIST  from  Card(s)  3.  In  this  case  if  DEPTH  is  left 
blank,  the  earthquake  is  assumed  to  be  intracrustal,  and  the  angle  is 
further  corrected  according  to  Snell's  law  using  VPSRCE,  and 
assuming  a  sub-Moho  P  wave  velocity  of  8.1  km/s.  For  any  phase  pair 
with  DIST  <  20  or  DIST  >  100  (or  left  blank)  the  P  wave  takeoff  angle 
is  read  in  using  ALPHA  even  iL  INDANG  is  non-zero.  The  takeoff 
angle  of  pP  is  read  in  using  GAMMA  on  Card(s)  3,  or  if  this  is  zero,  it 
is  set  to  the  value  of  ALPHA.  After  ALPHA  and  GAMMA  have  both 
been  set,  each  can  be  adjusted  using  ANGPF  and  ANGPPF  respect¬ 
ively  as  explained  above.  The  takeoff  angle  of  sP,  namely  BETA,  is 
always  calculated  from  the  final  value  of  GAMMA,  using  VPSRCE  and 
VSSRCE. 

IPRNT1,  IPRNT2,  IPRNT3,  IPRNT4,  1PRNT5.  "Switches"  for  printing  the 
orientations  compatible  with  each  card  (whether  phase  pair  or  input- 
result),  and  for  printing  cumulative  acceptable  orientations,  etc.  If 
switch  is  non-zero,  the  corresponding  list(s)  of  orientations  are 
printed.  Details  of  input  data  and  a  summary  of  the  results  for  each 
phase  pair  or  input-result,  and  for  the  cumulative  results  after  each, 
are  always  printed.  Note  that  lists  of  orientations,  especially  as 
requested  by  IPRNT1,  IPRNT2  and  IPRNT3,  are  likely  to  be  very  long. 

IPRNT1  A  list  after  each  card  of  orientations  compatible  with  that 
phase  pair  or  input-result.  For  an  input-result  separate  lists  of  those 
orientations  incompatible  with  one  or  more  phase  pairs  are  printed. 


IPRNT2  A  list  after  each  card  (other  than  the  first  and  last)  of 
those  orientations  which  are  compatible  with  all  the  phase  pairs  so 
far  processed,  including  those  corresponding  to  any  input-results,  and 
referred  to  as  "cumulative  acceptable  orientations". 

IPRNT3  Separate  lists  after  each  card  (other  than  the  first  and 
last)  of  those  orientations  which  are  compatible  with  all  or 
incompatible  with  one  or  more  of  the  phase  pairs  so  far  processed, 
including  those  phase  pairs  corresponding  to  any  input-results,  and 
referred  to  as  "cumulative  partially  acceptable  orientations". 

IPRNT4  A  list  after  the  last  card  as  for  IPRNT2,  and  referred  to 
as  "orientations  compatible  with  all  phase  pairs". 

IPRNT5  Separate  lists  after  the  last  card  as  for  IPRNT3,  and 
referred  to  as  "orientations  partially  compatible  with  all  phase  pairs". 

IPLOT1,  IPLOT2,  IPLOT3,  IPLOT4,  IPLOT5.  "Switches",  equivalent  to  IPRNT1 
to  IPRNT5,  to  control  plots  of  compatible  and  partially  compatible 
orientations.  Each  plotting  frame  displays  a  vectorplot  of  those 
orientations  which  are  compatible  or  partially  compatible  with  one  or 
a  series  of  phase  pairs  over  the  requested  region  of  search  in 
orientation  space.  The  form  of  the  vectorplots,  which  are  generated 
using  SUBROUTINE  PLOTV,  is  described  in  section  2.8  (fixed  length 
vectorplot)  and  2. 1 1  (variable  length  vectorplot).  If  switch  is  non-zero 
the  corresponding  vectorplot(s)  of  orientations  are  generated.  Other¬ 
wise  the  frame(s)  are  omitted. 

IPLOT1  One  vectorplot  after  each  phase  pair  or  input-result, 
showing  the  orientations  compatible  with  the  card.  For  a  phase  pair  a 
fixed  length  vectorplot  is  generated,  but  for  an  input-result  a  variable 
length  vectorplot  is  generated  to  show  the  compatible  and  partially 
compatible  orientations  of  this  input-result. 

IPLOT2  One  fixed  length  vectorplot  after  each  card  (other  than 
the  first  and  last)  showing  "cumulative  acceptable  orientations". 

IPLOT3  One  variable  length  vectorplot  after  eact  ,~ard  (other  than 
the  first  and  last)  showing  "cumulative  partially  acceptable  orienta¬ 
tions". 

IPLOT4  One  fixed  length  vectorplot  after  the  last  card  showing 
"orientations  compatible  with  all  phase  pairs". 

IPLOT5  One  variable  length  vectorplot  after  the  last  card  showing 
"orientations  partially  compatible  with  all  phase  pairs". 

IDEV3  Indicator  for  controlling  output  on  to  third  output  device  (which  is 
defined  by  NDEV3).  Leave  blank  for  no  output.  If  set  to  1,  an 
annotated  summary  of  input  and  results  for  each  phase  (including 
those  in  any  input-results)  is  provided,  according  to  the  format  shown 
in  appendix  C.  If  >  2,  this  is  followed  by  the  status  of  the  orientation 
array  after  completion  of  the  last  card,  as  required  for  use  as  an 
input-result  (see  appendix  C).  Outputs  on  to  a  third  device  are 
intended  to  provide  results  in  a  machine-readable  form  (eg,  on  cards, 
disc  or  magnetic  tape)  for  further  processing  in  one  of  the  ways 
described  in  section  2.13. 


NVL  Number  of  vector  lengths  for  variable  length  vectorplots.  This 
corresponds  to  the  maximum  number  of  phase  pairs  which  must  be 
incompatible  with  an  orientation  before  the  degree  of  incompatibility 
is  no  longer  stored  in  the  orientation  array  or  displayed  on  the  plot 
(see  section  2.11).  If  left  blank  or  negative,  it  is  set  to  1.  The 
maximum  possible  value  of  NVL  is  governed  by  the  dimension  of 
VVLR  and  is  set  to  35.  If  >  35,  it  is  set  to  35.  Section  D3  of  appendix 
D  gives  instructions  for  increasing  this  maximum  to  provide  for  a 
larger  number  of  vector  lengths,  up  to  an  absolute  maximum  of  255. 

NDEV3  Number  of  the  third  ouput  device  into  which  will  be  written  results 
according  to  IDEV3  (see  section  2.13).  If  left  blank,  is  set  to  7  which 
is  normally  equivalent  to  punched  cards. 

ISEA  If  left  blank,  earthquake  is  beneath  land.  Any  non-zero  punch 
indicates  that  the  earthquake  is  beneath  sea.  The  presence  or  absence 
of  a  sea  layer  decides  what  surface  reflected  phases  are  expected,  as 
discussed  in  section  2.4.  The  specification  of  structural  parameters 
related  to  a  sea  layer  is  explained  in  section  2.6. 

VPSURF  P  wave  velocity  of  the  surface  layer  (discounting  any  sea  layer) 
(km/s).  If  0.0,  is  set  to  4.0  (see  section  2.6.1). 

DSURF  Density  of  the  surface  layer  (discounting  anv  sea  layer)  (g/cmJ).  If 
<c  0.0,  is  set  to  2.3  (see  section  2.6.1). 

VPSRCE  P  wave  velocity  of  the  source  layer  (km/s).  If  0,  is  set  to  8.1  (see 
sections  2.5  and  2.6.1). 

VSSURF  S  wave  velocity  of  the  surface  layer  (km/s).  If  0.0,  is  set  to 

VPSURF// 3  (see  section  2.6.1). 

VSSRCE  S  wave  velocity  of  the  source  layer  (km/s).  If  0.0,  is  set  to 

VPSRCE//  3  (see  section  2.6.1). 

PPFCTF  Multiplication  factor  for  ail  PPFCT1  values  (see  under  PPFCT1  in 
Card(s)  3).  If  left  blank  or  zero,  is  set  to  1 .0. 

SPFCTF  Multiplication  factor  for  all  SPFCT1  values  (see  under  SPFCT1  in 
Card(s)  3).  If  left  blank  or  zero,  is  set  to  1.0. 

IFCT3  If  non-zero,  all  surface  reflection  coefficients  (ie,  PPFCT3  and 
SPFCT3)  will  be  set  to  +1.0  instead  of  being  calculated  in  the 
program  as  explained  in  section  2.6.1.  This  option  is  useful  if  the 
complete  effect  of  a  complex  velocity  structure  above  the  source  - 
including  the  free  surface  or  sea  surface  and  sea  bed  -  has  been 
calculated  elsewhere,  and  can  be  incorporated  into  PPFCT1  and 
SPFCT1  (or  PPFCTF  and  SPFCTF)  as  explained  in  section  2.6.2.  Note 
that  for  sP,  the  change  in  geometrical  spreading  factor  upon 
reflection  (see  appendix  E)  must  then  also  be  included  in  the 
calculations,  and  the  convention  used  for  the  sign  of  the  sP  reflection 
coefficient  must  follow  that  used  in  the  program. 


REGION 


Card  2A 

PSI1 

PSIN 

DELTA 1 

DELTAN 

STRIK1 

STRIKN 


Card(s)  3 


If  left  blank,  search  will  include  all  orientation  space.  Any  non-blank 
punch  indicates  that  a  restricted  region  of  search  in  orientation  space 
is  requested;  details  are  given  on  Card  2A.  Some  uses  of  the  option  to 
search  only  a  restricted  region  of  orientation  space  are  described  in 
section  2.12. 


Card  defining  limits  of  restricted  region  of  search  in  orientation 
space  (see  section  2.12).  (This  card  only  to  be  included  if  REGION  in 
Card  2  not  left  blank.) 

FORMAT  3(F8.4,8X,F8.4) 

Smallest  value  of  slip  angle  to  be  included  in  searches  (degrees). 

Largest  value  of  slip  angle  to  be  included  in  searches  (degrees). 

Smallest  value  of  dip  to  be  included  in  searches  (degrees). 

Largest  value  of  dip  to  be  included  in  searches  (degrees). 

Smallest  value  of  strike  to  be  included  in  searches  (degrees). 

Largest  value  of  strike  to  be  included  in  searches  (degrees). 

PSI1,  DELTA  1  and  STRIK1  are  corrected  downwards,  and  PSIN, 
DELTAN  and  STRIKN  are  corrected  upwards,  to  the  nearest  search 
increment  in  orientation  space.  If  PSI1,  DELTA  1  or  STRIKl^  DINC, 
it  is  set  to  DINC;  if  PSIN  or  DELTAN  >  180.0,  it  is  set  to  180;  if 
STRIKN  >  360.0,  it  is  set  to  360.0.  A  required  search  region  whose 
strike  spans  north  must  be  divided  into  two  searches,  one  with  strike 
up  to  and  including  360.0  and  the  other  with  strike  beginning  at  DINC. 
For  details  of  recurrence  of  slip  angle  and  dip  see  appendix  F.  For  a 
restricted  region  search  the  choice  of  DINC  and  of  the  search  bounds 
must  be  such  that  the  number  of  search  increments  in  each  angle 
separately  does  not  exceed  the  number  corresponding  to  DINC  =  5.0 
for  a  search  over  all  space,  which  has  DINC  c  slip  angle  *  180.0, 
DINC  ^  dip  ^  180.0,  and  DINC  ^  strike  360.0.  This  gives  a 
maximum  number  of  search  increments  of  36  in  slip  angle  and  dip, 
and  72  in  strike,  see  section  2.11.  If  these  conditions  are  not  met,  the 
region  of  search  will  be  reduced  as  required.  Array  dimensions  are 
discussed  in  sections  D1  and  D2  of  appendix  D. 


NOP  cards  -  one  for  each  phase  pair  or  input-result.  Cards  can  be 
placed  in  any  order,  so  that  any  desired  grouping  of  the  phase  pairs 
can  be  achieved  merely  by  changing  the  order  of  the  cards.  This  will 
affect  the  development  of  the  cumulative  acceptable  orientations  but 
will  leave  the  final  result  unchanged  (see  section  2.13). 

If  the  card  relates  to  an  input-result,  it  must  be  left  blank,  except  for 
NDEV,  the  number  of  the  device  from  which  the  input-result  is  to  be 
read,  which  is  right-justified  in  columns  79  and  80.  There  is  no  default 
value  for  NDEV  -  any  non-interger  characters,  or  blank  or  zero  will 
cause  the  card  to  be  deleted.  If  device  5  (normally  the  card  reader)  is 
used  to  read  the  input-result,  then  the  corresponding  card  deck  must 
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be  placed  immediately  after  this  input-result  card.  The  format  of  an 
input-result  is  identical  to  that  of  the  output  to  the  third  output 
device,  so  that  the  data  can  be  re-read  without  modification.  This 
format  is  given  in  appendix  C. 

If  the  card  relates  to  a  new  phase  pair,  it  contains  its  details  as 
follows:- 

FORMAT  A8,  F5.0,  3F5.1,  2(A1,2F  10.5),  2F4.2,  A2 


STANAM  Station  name  code  and  seismograph  type  if  required  (eg,  "ESK  SPZ  " 
or  "WOL  LPZ  ").  This  is  used  only  as  a  title,  but  must  not  be  left 
blank  as  a  blank  station  name  is  used  to  identify  an  input-result  card. 

AZI  Azimuth  of  station  from  earthquake  in  degrees  (measured  positive 

clockwise  from  north).  This  is  converted  to  its  principal  value  (0 
<  AZI  ^  360.0)  by  the  program  so  that  positive  or  negative  values  will 
be  correctly  treated.  It  is  then  approximated  to  the  nearest  value  of 
strike  in  the  search  mesh. 


DIST  Epicentral  distance  from  earthquake  to  station  (degrees).  Only  used  if 

INDANG  is  non-zero,  to  calculate  P  takeoff  angles  from  tables  stored 
within  the  program  (see  section  2.5). 


ALPHA  Takeoff  angle  of  P  from  downward  vertical  at  the  source  (degrees) 
(see  section  2.5).  This  is  only  used  if  INDANG  =  0.  This  variable  can 
have  any  value  (values  between  90  and  180  giving  a  P  takeoff  angle  in 
the  upper  focal  hemisphere,  and  values  between  0  and  -180 
theoretically  giving  an  azimuth  change  of  180°).  This  value  (unlike 
AZI)  is  not  approximated  to  a  search  mesh  point.  The  P  wave  takeoff 
angles  for  all  phase  pairs  can  then  be  systematically  adjusted  using 
ANGPF  on  Card  2. 


GAMMA  Takeoff  angle  of  pP  from  upward  vertical  at  the  source  (degrees)  (see 
section  2.5).  If  left  blank,  is  set  to  the  value  of  ALPHA  (before  any 
adjustment  using  ANGPF).  This  is  normal  for  shallow  earthquakes. 
This  variable  offers  a  means  of  specifying  a  different  takeoff  angle 
for  pP  in  cases  where  it  may  be  justified  for  deep  earthquakes.  The 
pP  takeoff  angles  for  all  phase  pairs  can  then  be  systematically 
adjusted  using  ANGPPF  on  Card  2.  Note  that  GAMMA  refers  to  the 
takeoff  angle  of  pP  irrespective  of  which  phase  pair  this  card  relates 
to.  The  sP  takeoff  angle  (BETA)  is  derived  from  the  final  value  of 
GAMMA  when  required,  using  the  ratio  of  the  P  and  S  wave  velocities 
in  the  source  layer  (VPSRCE/VSSRCE).  Note  that  BETA  is 
independent  of  v  /vs  in  any  other  layer. 

SIGNP,  PA2IN,  PA1IN,  SIGNPP,  PPA2IN,  PPA1IN.  In  the  following,  Phase  1 
represents  P  for  a  P  and  pP  or  a  P  and  sP  phase  pair,  and  pP  for  a  pP 
and  sP  phase  pair.  Phase  2  represents  pP  for  a  P  and  pP  phase  pair, 
and  sP  for  a  P  and  sP  or  a  pP  and  sP  phase  pair.  The  types  of  phase 
pair  are  discussed  in  section  2.4,  and  this  method  of  specifying 
amplitude  information  is  further  explained  in  section  2.2.  For  the 
present  purpose  pP  includes  its  sea  bed  and  sea  surface  analogues,  and 
sP  includes  its  sea  bed  analogue. 
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PPFCT1 


SPFCT1 


PHASES 


SIGNP  Polarity  of  Phase  1  as  observed  on  seismogram. 

+  =  positive  (ie,  up),  -  =  negative  (ie,  down). 

Any  other  punch  or  blank  corresponds  to  uncertain  or  unknown 
polarity  and  so  both  polarities  are  included. 

PA2IN,  PA1IN  Lower  and  upper  bounds  respectively  on  the  possible 
amplitude  of  Phase  1  as  observed  on  the  seismogram,  measured  in 
arbitrary  units.  Amplitudes  are  specified  by  positive  values  -  the 
polarity  being  controlled  by  SIGNP. 

S1GNPP,  PPA2IN,  PPA1IN  Same  for  Phase  2. 

The  above  method  of  expressing  relative  amplitudes  numerically  was 
introduced  in  section  2.2;  for  comments  on  setting  realistic  100% 
confidence  limits  on  the  amplitudes  see  section  2.3.  Note  that  if  the 
amplitude  range  of  either  phase  has  zero  width,  or  if  the  amplitude 
ranges  of  both  phases  include  zero,  the  phase  pair  is  deleted  by  the 
program.  (The  inclusion  of  zero  in  both  amplitude  ranges  permits  all 
possible  relative  amplitudes,  so  that  all  source  orientations  would  be 
compatible.) 

Multiplication  factor  applied  to  calculated  pP  amplitudes  (if  this 
phase  pair  includes  a  pP  type  phase)  to  represent  any  loss  of  pP 
amplitude  during  propagation  with  respect  to  that  of  P,  other  than  at 
the  sea  bed,  sea  surface  or  free  surface  (whose  refraction  and 
reflection  coefficients  are  normally  allowed  for  in  the  program,  see 
section  2.6.1).  This  factor  is  primarily  intended  to  allow  for  energy 
partitioning  at  crustal  discontinuities  above  the  source,  or  anelastic 
attenuation  above  the  source,  as  described  in  section  2.6.2.  If  left 
blank,  is  set  to  1.0. 

Multiplication  factor  applied  to  calculated  sP  amplitude  (if  this  phase 
pair  includes  an  sP  type  phase)  to  represent  any  loss  of  sP  amplitude 
relative  to  that  of  P,  for  the  same  purpose  as  PPFCT1  above.  If  left 
blank,  is  set  to  1.0. 

Note  that  PPFCT1  or  SPFCT1  for  all  phase  pairs  may  be  scaled 
systematically  by  the  use  of  PPFCTF  and  SPFCTF  or  Card  2.  This 
enables  a  general  factor  to  be  specified  for  ail  phase  pairs,  and  it 
enables  perturbation  studies  to  be  performed  easily  on  the  loss  of  pP 
or  sP  energy  above  the  source  (see  section  2.6.2). 

Code  to  identify  the  type  of  phase  pair  to  which  this  card  relates  (see 
section  2.4  for  the  possible  types  of  phase  pair).  Punch  'PP'  for  a  P 
and  pP  phase  pair;  'SP'  for  a  P  and  sP  phase  pair;  '**'for  a  pPand  sP 
phase  pair  (used  only  when  both  previous  phase  pairs  are  included 
from  the  same  seismogram  -  see  section  2.4).  If  the  earthquake  is 
beneath  the  sea  (ISEA  non-zero),  then  reflection  at  the  sea  bed  is 
assumed  for  the  above  cases  (this  conforms  to  the  standard 
definitions  of  pP  and  sP).  Where  pP  reflected  from  the  sea  surface  is 
used,  punch  'PE'  for  a  P  and  pP(ssf)  phase  pair  or  '*E'  for  a  pP(ssf)  and 
sP  phase  pair  (S  is  not  transmitted  into  the  sea  layer). 

Any  other  punch  or  blank  is  assumed  to  be  a  P  and  pP  phase  pair. 
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Further  complete  data  blocks  may  follow. 

For  normal  termination  of  the  program  the  last  data  block  must  be 
followed  by  one  blank  card. 
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APPENDIX  C 


FORMAT  OF  MACHINE-READABLE  OUTPUT  AND  INPUT-RESULT 


The  standard  format  output  into  a  third  output  device  is  intended  to 
provide  the  results  of  processing  a  data  block  in  a  convenient  machine-readable 
form,  in  addition  to  the  routine  printer  and  graphic  outputs.  As  explained  in 
section  2.13.2  it  is  in  two  sections,  the  first  of  which  provides  a  summary  of 
input  data  and  results,  and  the  second  of  which  contains  a  list  of  all  orientations 
which  are  compatible  and  partially  compatible  with  all  the  phase  pairs  processed 
in  the  data  block  or  read  in  as  input-resuits.  The  format  is  designed  so  that,  when 
both  sections  are  requested,  the  output  can  be  re-read  directly  as  an  input-result 
without  alteration,  as  described  in  section  2.13.  The  format  of  an  input-result  is 
therefore  essentially  the  same  as  that  of  the  standard  output.  The  formats  have 
been  spaced  out  to  provide  room  for  hollerith  annotation  of  key  variables,  which 
is  automatically  included  in  the  output  to  assist  identification  and  interpretation 
of  data  sets.  This  hollerith  information,  which  is  indicated  by  H  format  fields  in 
the  list  below,  is  skipped  on  input.  The  format  list  which  follows  is  arranged  in 
"Cards"  although  more  generally  these  will  be  card  images  on  disc  or  magnetic 
tape. 

Section  1  of  standard  output  from  one  data  block. 

Card  1  Header  card 

FORMAT  3A8,16H,A8,12H,A8,4H,A8 

TCARD(I),  I  =  1,3  Standard  heading  used  on  input  to  identify  this  as  a  standard 
FALT  dataset.  The  characters  are  F ALTb-bST AND ARDbOUTPUTbb 
(where  b  denotes  blank). 

VDATE  Version  date  of  the  program,  in  the  form  dd/mm/yy  (where  dd  =  day, 
mm  =  month,  yy  =  year). 

RDATE  Date  when  program  was  run,  in  the  form  dd/mm/yy. 

RTIME  Time  when  program  was  run,  in  the  form  hh.mm.ss  (where  hh  =  hour, 
mm  =  minute,  ss  =  second). 

Card  2  Title  card  for  earthquake  (as  for  Card  1  of  device  5  input). 

Card  3  FORMAT  33H,I3,35H,F4.i,5H 

NVL,DINC  (as  for  device  5  input). 

Card  4  FORMAT  16H,F4.0,4H,F4.0, 1  2H,F4.0,4H,F4.0, 16H,F4.0,4H,F4.0 

PSI1,  PSIN,  DELTA  1,  DELTAN,  STRIK1,  STRIKN  (as  for  device  5  input). 

Card  3  Card  with  parameters  relating  to  the  earthquake  (as  for  Card  2  of 
device  5  input). 

Card  5A  Card  defining  limits  of  restricted  region  of  search  in  orientation 
space.  (This  card  is  only  included  if  REGION  in  Card  5  is  not  left 
blank.)  This  card  is  the  same  as  Card  2A  of  device  5  input. 


Card  6  FORMAT  31H,I6,35H,I8 

NCOMBR  Number  of  orientations  in  the  search. 

NCOMB  Total  number  of  orientations  in  all  orientation  space. 

One  set  of  three  cards,  namely  Cards  7A,  7B  and  7C,  now  follow  in  respect  of 

each  phase  pair. 

Card  7A  This  card  is  the  same  as  Card  3  of  device  5  input. 

Card  7B  FORMAT  26H,I6,37H,F  1 1 .9 

NTRUE  Number  of  orientations  found  which  are  compatible  with  this  phase 
pair. 

S  Fraction  of  all  orientations  which  is  incompatible  with  this  phase 

pair. 

Card  7C  FORMAT  69H.F  1 1.9 

SREAL  Fraction  of  all  orientations  in  real  space  which  is  incompatible  with 
this  phase  pair  (ie,  the  significance). 

Card  8  Blank  card 

Card  9  FORMAT  30H,!3 

IOBS  (=NOBS).  Total  number  of  phase  pairs  (either  processed  in  this  data 

block  or  included  in  any  input-results  read  in  as  part  of  this  data 
block). 

Card  10  FORMAT  26H,16,37H,FU.9 

NTRUE  Number  of  orientations  which  are  compatible  with  all  phase  pairs. 

S  Fraction  of  all  orientations  which  is  incompatible  with  all  phase  pairs. 

Card  1 1  FORMAT  69H, FI  1.9 

SREAL  Fraction  of  all  orientations  in  real  space  which  is  incompatible  with 
this  phase  pair  (ie,  the  significance). 

Section  2  of  standard  output  from  one  data  block. 

Card  12  FORMAT  16H,I7,57H 

NTOT  Total  number  of  compatible  and  partially  compatible  orientations 
within  the  region  of  search. 

Card  13  80H 

Card  14  80H 

Card(s)l  3  List  of  all  compatible  and  partially  compatible  orientations,  with  the 
number  of  phase  pairs  incompatible  with  each  (see  section  2.13.2). 
For  each  card:- 

FORMAT  1  X,I3,1  X,I3, 1  X,13,I3,4(1H,I3,1  X,I3,1  X,!3,I3),I5 
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III(I)  Slip  angle  in  fault  plane  41  (degrees). 

JJJ(I)  Dip  of  fault  plane  6  (degrees). 

KKK(!)  Strike  of  fault  plane  a  (degrees). 

IVLN(I)  Number  of  phase  pairs  which  are  incompatible  with  this  orientation. 

ICARD  (columns  75  to  80).  Card  count  for  Card(s)  15.  When  read  in  as  an  input- 
result  this  is  used  to  check  the  order  of  the  input  records. 

Card  16  Card  to  indicate  that  the  end  of  the  dataset  has  been  reached.  (When 
read  in  as  an  input-result  the  program  calculates  this  using  NTOT, 
and  this  card  only  serves  to  confirm  that  the  dataset  is  complete.) 

FORMAT  A k 

END  Standard  characters  which  are  used  as  an  identifier.  They  are  ENDb 
(where  b  denotes  a  blank). 


APPENDIX  D 


PROGRAM  TIME  AND  STORAGE  REQUIREMENTS  AND 


LATED  INFORMATION 


COMPUTING  TIME  AND  PROGRAM  STORAGE 


Since  both  program  storage  and  CPU  time  used  are  determined  by  the 
minimum  allowed  search  increment  (ie,  the  minimum  value  of  DINC),  the 
program  can  easily  be  modified  to  suit  varied  computing  resources.  The  minimum 
value  of  DINC  is  governed  by  the  dimensions  of  the  orientation  array  F,  which 
are  related  to  the  value  of  NDIM  as  described  below.  A  suitable  value  of  NDIM 
can  be  estimated  from  the  following  approximate  statistics,  which  are  derived 
for  the  present  version  of  the  program  (NDIM  =  18):- 

(1)  With  NDIM  =  18  the  program  requires  320  kb  to  compile. 

(2)  With  NDIM  =  18  the  compiled  program  requires  256  kb. 

Table  D1  shows  approximate  CPU  time  requirements  for  different 
values  of  DINC  (see  DINCIN  on  Card  2),  expressed  in  arbitrary  units:- 


TABLE  D1 


No.  of  Search 

Points 

(All  Orientation  Space) 

Time  for  One  P  and  pP 
Phase  Pair 

(All  Orientation  Space) 
(Units) 

Time  for  One  P  and  sP 
or  pP  and  sP  Phase  Pair 
(All  Orientation  Space) 
(Units) 

3456 

1.5 

2 

11664 

4 

6 

93312 

20  -  35 

40  -  50 

1458000 

300  -  400 

400  -  500 

11664000 

2400  -  3200 

3200  -  4000 

Times  for  restricted  region  searches  can  be  estimated  by  calculating 
the  number  of  search  points  and  estimating  the  equivalent  number  of  units  from 
the  above  table. 


unit  =  1  s. 


For  the  IBM370  installation,  on  which  this  program  has  been  run,  1 


INSTRUCTIONS  FOR  CHANGING  PROGRAM  STORAGE 


As  mentioned  above,  the  program  can  be  tailored  to  available 
resources  simply  by  changing  the  dimensions  of  the  arrav  F  (whose  elements  are 
1  byte),  and  the  value  of  NDIM  (which  is  used  only  for  testing  the  validity  of 
input  data,  and  is  specified  in  a  DATA  initialisation  statement). QSet  NDIM  to  the 
desired  maximum  available  number  of  search  increments  in  a  90°oband,  exclusive 
of  lower  limit  (eg,  if  maximum  resolution  required  is  DINC  =  5°,  then  NDIM  = 
18).  Then  the  required  dimensions  of  F  are  (NDIM*2,  NDIM*2,  NDIM*4), 
corresponding  to  (slip  angle,  dip,  strike).  Remember  that  DINCIN  is  always 
corrected  to  an  integer  submultiple  of  90°  before  being  equated  to  DINC. 


With  these  changes  the  program  logic  will  remain  unaffected. 


For  higher  resolution  searches  over  restricted  regions  in  orientation 
space,  the  number  of  search  increments  in  slip  angle,  dip  or  strike  must  not 
exceed  the  corresponding  dimension  of  F. 

D3.  INSTRUCTIONS  FOR  CHANGING  THE  MAXIMUM  NUMBER  OF 

VECTOR  LENGTHS 


If  it  should  be  necessary  to  increase  the  maximum  number  of  vector 
lengths,  to  provide  for  larger  values  of  NVL,  this  can  be  increased  from  35  to  a 
theoretical  maximum  of  255  as  follows:- 

(1)  Set  dimension  of  VVLR  to  (n  +  1)  where  n  is  the  desired 
maximum  number  of  vector  lengths. 

(2)  Set  dimension  of  VVL  to  (4,n  +  1). 

(3)  Set  dimension  of  NTRUES  to  (n). 

(4)  Assign  a  unique  code  to  the  first  byte  of  each  new  element  of 
VVLR,  setting  the  remaining  3  bytes  to  "blank".  This  is  most  easily 
achieved  using  hexadecimal  "Z"  specification  in  a  DATA  initialisation 
statement  (Z00404040  must  be  reserved  for  VVLR(O).  The  codes  used 
in  the  orientation  array  are  explained  in  appendix  G. 
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APPENDIX  E 


METHOD  OF  CALCULATING  THE  RELATIVE  AMPLITUDE  BETWEEN  TWO 
GIVEN  PHASES  WHICH  IS  EXPECTED  AT  A  GIVEN  ST ATfON  FROM  A  GIVEN 

SOURCE  ORIENTATION  - 


The  procedure  by  which  orientation  space  is  searched  and  tested  for  a 
given  phase  pair  is  outlined  in  appendix  A.  Here,  and  in  appendices  F  and  G,  the 
method  by  which  the  calculations  are  carried  out  is  described. 

At  each  search  point  in  the  mesh  of  possible  source  orientations  the 
acceptable  range  of  relative  amplitudes  is  tested  against  the  theoretically 
expected  relative  amplitude,  calculated  for  the  required  phase  pair  at  the  given 
station  location,  for  the  particular  source  orientation.  The  method  by  which  the 
theoretically  expected  relative  amplitude  is  calculated  is  now  given. 

Let  the  seismic  radiation  from  a  point  source  be  defined  in  spherical 
polar  co-ordinates  (r,0,4>)  about  the  source,  where  6  =  0  is  coincident  with  the  X3 
Cartesian  axis  and  <t>  is  measured  in  a  right-handed  sense  from  the  Xt  axis  (figure 

4(a)).  Then  for  a  double  couple  force  system  acting  about  the  X2  axis,  as  shown  in 

figure  4(b),  the  time  independent  part  of  the  far  field  P  wave  amplitude  at  unit 
distance  from  the  source  is  given  by  (see,  for  example,  reference  (22)). 

Ve,<1))  * 7"  rriu sin  20  cos  *  ....(ed 

p 

where  X  and  p  are  Lame's  parameters,  v  is  the  P  wave  velocity  in  the  source 
medium,  K  >s  a  constant  dependent  upoi?  the  magnitude  of  the  couples,  and  r 
denotes  the  unit  vector.  Similarly,  the  S  wave  amplitude  is  given  by 

K  1  l  /v 

As(e.*>  “  7“  “(cos  20  cos  <t>  ^  -  COS  B  sin  <!>  <M ,  ....(E2) 

8 

where  v  is  the  S  wave  velocity  in  the  source  medium.  It  is  clear  from  equations 
(El)  ana  (E2)  that,  although  the  ratio  of  P  and  pP  amplitudes  at  the  focus  is 
independent  of  all  geophysical  parameters,  this  is  only  approximately  true  for  the 
ratio  of  P  and  sP,  since  the  relative  excitation  of  P  and  S  depends  upon  Poisson's 
ratio. 


Figure  4(c)  is  a  three-dimensional  polar  diagram  of  the  P  wave 
radiation  A  (9  ,<)>),  viewed  as  for  figures  4(a)  and  (b).  The  form  of  the  S  wave 
radiation  aP(B,<1>)  is  shown  similarly  in  figure  5,  where  its  amplitude  and 
polarisation  direction  are  plotted  on  a  three-dimensional  representation  of  the 
focal  sphere.  Here  the  planes  XtX2  and  X2X3  are  the  "nodal  planes"  of  P,  which 
intersect  at  the  "null  vector"  X2  along  which  A  =  As  =  0.  For  a  point  source  we 
note  the  familiar  degeneracy  of  both  P  and  Eradiations  under  interchange  of 
fault  plane  (arbitrarily  chosen  as  the  X2X3  plane)  and  auxiliary  plane,  X,X2.  The 
integrated  effect  over  an  extended  source  has  little  influence  on  the  radiation 
pattern  if  the  source  is  small,  but  large  or  elongated  faults  given  rise  to 
significant  variations  of  pulse  length  over  the  focal  sphere,  in  which  case  the 
correct  quantity  to  estimate  is  the  square  root  of  the  energy  contained  in  the 
(broad  band)  displacement  pulse  throughout  its  duration,  as  discussed  in  section 
2.3.2. 
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The  source  orientation  is  the  orientation  of  the  above  co-ordinate 
system  X  in  space,  which  is  defined  in  terms  of  the  three  angles  introduced  in 
section  2.7,  namely  the  dip  6  of  the  fault  plane,  the  slip  angle  i!>  in  this  plane,  and 
its  strike  o  from  north,  as  shown  in  figure  6(a). 

The  position  of  P,  pP  and  sP  on  the  focal  sphere  is  defined  by  the 
azimuth  of  the  station,  £, ,  and  the  takeoff  angle  of  each  phase  -  a,  Y  and  ffoeing 
used  for  P,  pP  and  sP  respectively  (figure  6(b)).  (These  angles  are  respectively 
the  variables  AZI,  ALPHA,  GAMMA  and  BETA  introduced  in  section  2.5.)  a  =  y  is 
assumed  for  all  shallow  earthquakes,  and  6  is  determined  from  y  using  the  ratio 
of  the  P  and  S  wave  velocities  in  the  source  layer.  We  have 


sin  3 


v  sin  y 


. . . .(E3) 


(Here  reference  to  the  phase  "pP"  includes  the  solid  free  surface,  sea  surface  or 
sea  bed  reflections  as  these  all  emerge  from  the  same  point  on  the  focal  sphere.) 

In  order  to  calculate  the  amplitude  of  P  or  S  along  a  given  ray  for  a 
particular  source  orientation,  we  require  the  direction  vector  x  -  'x1,x2,x3}  of  the 
ray  leaving  the  source  expressed  in  the  X  co-ordinate  system.  This  is  found  by 
applying  a  series  of  rotations  to  the  direction  vector  along  X3,  namely  (0,0,1). 
The  required  direction  vectors  for  a  P,  pP  and  sP  ray  respectively  are  given  by*:- 


/*i\  /I  0  0  .  /co, 

[  *2  ]  ■  0  £«•  ♦  -sin  *1  (-•ii 

\xj/  \0  (in  co.  4y  \  0 

A.\  A  0  0  v  /co 

f  X]  I  «  I  0  coa  *  -ain  4i\  I -ail 

\Xj/  \0  sin  ill  cos  4y  \  0 

Ai\  A  0  0  v  /coi 

i*2l  ■  I  0  cos  41  -ain  4m  I  -aii 

\*y  \0  sin  41  cos  4y  \  0 


cos  £  sin  6  0 
sin  6  coa  6  0 
0  0  1 


cos  6  sin  &  0 
sin  £  coa  £  0 
0  0  1, 


cos  £  sin  £  0 
sin  £  cos  £  0 
0  0  1 


0\  /l  0  0  \  /-sin  a  o  cos  a  \/0\ 

0  1  (  0  cos  n  -sin  n  )  (  0  -10  Jf0) . 

1/  \0  sin  n  cos  n/  \  cos  a  0  sin  n  /\l/ 

0\  /l  0  0  \  /-sin  y  0  -cos  V\ /<N 

olio  cos  n  -sin  n  J  (  0  -1  o  j  {  o  J . 

I \0  sin  n  cos  r\  J  \-co»  y  0  sin  y/\y 

o\  /l  0  0  \  /-sin  B  0  -cos  ^\/^\ 

0j(0  cos  n  -sin  n  )[  0  -1  0  Jf  Ol (E6) 

1 J  \0  sin  n  cos  n J  V  cos  P  0  sin  ft/  \  1/ 


where  h  =E-cr  is  the  azimuth  of  the  recording  station  from  the  strike.  The 
amplitudes  of  the  corresponding  P  and  S  rays  leaving  the  source  are  then  given  by 

K  1  1 

~p  =  4ir  v~  X  +  2 p  sin  (2  COs  l  (xj))  cos  (tan_1  (x2/xi))  - ( E 7 ) 


A  ^  K  1  1 

6S  =  2  +  Ag  $  =  —  —  -(cos  (2  cos"1  (Xj))  cos  (tan'1  (x2/x,))^ 

<b  s 


+  cos  (cos  1  (x3 ) )  sin  (tan  1  (x2/x[))$). 


■ . . . (E8) 


*In  equation  (3)  of  reference  (1),  the  minus  sign  was  omitted  from  the  first 
element  of  the  a  matrix. 
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The  normalised  amplitude  of  the  P  phase  at  the  station  is  obtained 
directly  from  equation  (E7),  using  equation  (E4).  That  for  a  pP  phase  is  similarly 
obtained  from  equation  (E8),  using  equation  (E5),  after  which  it  is  multiplied  by  a 
factor  F  (corresponding  to  PPFCT3  introduced  in  section  2.6.1)  to  allow  for  loss 
of  pP  amplitude  due  to  reflection  at  the  solid  free  surface,  sea  surface  or  sea 
bed,  according  to  which  type  of  pP  phase  is  being  considered.  The  energy 
partitioning  equations  for  plane  waves  at  a  plane  interface  have  been  given  by 
many  authors,  eg,  (23-25).  The  equations  for  a  solid/fluid  interface  have  been 
given  by  Ergin  (26).  For  the  present  purpose  the  matrices  are  expanded  to  obtain 
a  separate  algebraic  expression  corresponding  to  each  surface-reflected  phase. 

For  pP  reflected  at  a  solid  free  surface  we  obtain 

F  ,  2  sin  2yi_3in_2RJ_-_R,2(co8  4Bt  ♦  1)  ....(E9) 

2  sin  2Yi sin  26 L +  Riz(cos  4Bj ♦  1 ) 

where  Ri  is  the  ratio  of  the  P  and  S  wave  velocities  in  the  surface  layer,  and 
where  Yi  and  Bt  are  respectively  the  pP  and  sP  angles  of  incidence  in  the  surface 
layer,  which  are  derived  from  y  and  B  using  Snell's  law,  given  the  velocity  ratio 
between  the  surface  and  source  layers.  This  correction  is  less  than  10%  for 
Yl  <  14°. 


For  pP  reflected  at  the  sea  bed,  expansion  of  the  matrices  gives  a 
similar  expression,  but  which  depends  also  upon  the  ratio  of  the  P  wave  velocities 
in  the  sea  and  surface  (solidl  layers,  denoted  by  R  ,  and  upon  the  ratio  of  their 
densities,  denoted  by  R^.  We  obtain  ^ 

R*  eon  28,  (t  R  coa  y,  -  coa  26,  coa  X)  *  aia  2y,  (ain  26,  coa  X  *  R,R  R  ain  6,) 
r  - - - 1 - . . (Rio) 

ain  2Vi  (ain  26,  coa  X  ♦  t,t  R.  •««  6, >  ♦  R*  coa  28,  (coa  26,  coa  X  ♦  R  R  coa  y, ) 

P  “  P  « 

nrfmre  X  ■  ain-1  (R  ain  y,). 

P 

For  pP  reflected  at  the  sea  surface  F  includes  the  effects  of 
amplitude  loss  due  to  upward  and  downward  refraction  at  the  sea  bed;  reflection 
at  the  sea  surface  involves  no  amplitude  loss  but  it  does  give  a  change  in 
polarity.  The  product  of  the  three  factors  then  gives  F:- 


2  coa  y,  coa  26,  (aia  2y,  ain  26,  ♦  R?  coa*  26,1 


*  2  ain  2y,  coa  26,  (R,  ain  6,  coa  26,  -  coa  Y,  ain  26,1 

r  -  - — - - 

(R  R  coa  y,  *  coa  26,  coa  X)(ain  2y,  ain  26,  *  R*  coa*  26,1 
P  •* 

•  I  I  ain  2yi  (R,  ain  6,  coa  26,  -  coa  y,  ain  26,1 

R  • 


(Upward 

refraction 

at  aaa  had) 


(Reflection  at 
aea  aurface) 


2R?  coa  X  coa  26, 

X  |  ■  —  «  -  ■  ■—  .‘i  ~  - 

ain  2Y|  (R*  ain  6,  *  (ain  26,  coa  X)/R  R.) 

P  ® 

*  R{  coa  26,  (coa  y,  *  (coa  26,  coa  X)/R  R.) 

p  o 


(Downward  refrac¬ 
tion  at  aea  had) 


..(HI) 
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The  calculated  pP  amplitude  may  be  multiplied  by  a  second  factor 
(corresponding  to  PPFCTl)  to  allow  for  loss  of  pP  amplitude  relative  to  that  of  P 
due  to  any  other  cause  -  for  example,  as  a  result  of  energy  partitioning  of  pP  at 
other  seismic  discontinuities  above  the  source. 


Calculation  of  the  normalised  sP  amplitude  at  the  station  requires 
consideration  of  the  mode  conversion  upon  reflection  at  the  free  surface. 
Equation  (E8),  using  equation  (E6),  gives  its  amplitude  and  polarisation  direction 
in  the  X  co-ordinate  system.  For  calculation  of  the  sP  amplitude  we  are 
concerned  only  with  Ag  ,  the  component  of  S  amplitude  in  the  vertical  plane. 
This  is  given  by  v 

A  =  | A  |  cos  (Cj  ♦  e2),  ....(E12) 

-s  —s 
v 

where  ei  is  the  S  polarisation  direction^  measured  relative  to  and  e2  *s  the 
angle  between  the  vertical  plane  and  ft,  measured  perpendicular  to  the  ray 
direction  x.  Figure  12  shows  the  relevant  geometry.  Both  |Aj  and  follow 
directly  from  equation  (E8)  as  follows:- 

U  I  •  f|A  I1  *  I  A.  I’!4.  . . . . (E13) 

~3  3P  S<|> 


£i  =  tan  1  f | A  I / I A  | ) , 
%  sft 


. (E14) 


while  e2  is  calculated  by  expressing  the  direction  of  8  =  (Pi,fl2,03)  in  the  co¬ 
ordinate  system  with  its  3  axis  along  the  takeoff  ray  and  its  1  axis  in  the  upward 
vertical  plane  (figure  12).  This  is  obtained  by  applying  a  series  of  rotations  to  the 
expression  for  ft  defined  in  the  X  co-ordinate  system  of  figure  5(a).  We  obtain 


fl  0  -cos  R\  /I 

-i  o  Wo 
S  0  sin  R/  \0 


0  0  \  /cos  f  -sin  5  0\  /I  0  0  \  /cos  ^  cos  t\ 

cos  n  'in  n]  (  sin  ^  cosSolfo  co«^sinit»Jlcosflsin*).*...(E15) 
sin  n  cos  r\J  \  0  0  1/  \0  -sin  *  cos  'li/  \  -cos  *  / 


Substituting  for  |A  |,  Cj  and  e2  in  equation  (El 2)  gives  the  required  expression  for 

A  -« 

— s 

v 

A  =  (A  2  ♦  A  2 cos  f tan-1  (A  /A  )  +  tan-1  /© i ) 1 .  - (E16) 

_8v  se  8<t>  "8d,  "8p 

Allowance  for  energy  conversion  from  incident  S  to  reflected  P  at  the 
free  surface  is  expressed  as  the  product  (corresponding  to  SPFCT3)  of  two  scalar 
factors  F»  and  F2  applied  to  the  amplitude  A^  -  these  being  respectively  an 

y 

expression  analogous  to  that  for  pP,  to  allow  for  the  partitioning  of  an  incident 
plane  wave  at  the  boundary  as  deduced  from  Zoppritz’s  equations,  and  an 
additional  correction  (not  required  for  pP)  to  convert  to  an  incident  spherical 
wavefront.  For  the  conversion  of  incident  S  to  reflected  P  at  a  solid  free  surface 
we  obtain 

p  _ _ 2Rj  sin  4B,  _ 

2  sin  2Yi  sin  2Bj  +  Rf(cos  4Bj  +  ])*  . . - . (El 7) 
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The  negative  sign  is  necessary  for  compatibility  with  the  definition  of  A  shown 

v 

in  figure  12.  The  equivalent  factor  for  sP  reflected  at  the  sea  bed  is  given  by 

»in  coi  2B,  cot  X  _  .  ... 

'•in  ffi  (tin  5SJ  coo  X  ♦  R(R  R*  fin  B,)  ♦  Rf  coo  28,  (co»  2B,  coo  X  ♦  t  R.  coo  Y,  > . 

pa  p  a 

The  geometry  of  figure  13  serves  to  show  the  origin  of  F2,  which 
allows  for  the  discontinuous  change  in  geometric  spreading  factor  caused  by  the 
change  of  the  spherically  expanding  wavefront  from  S  to  P  at  the  free  surface. 
This  factor  depends  only  upon  angles  and  velocities  at  the  source,  and  can  be 
expressed  as 


sin-1  y) 


.... (E19) 


where  R  is  the  ratio  of  the  P  and  S  wave  velocities  in  the  source  layer. 

The  sP  amplitude  must  be  multiplied  by  a  further  factor  (corres¬ 
ponding  to  SPFCT2)  to  allow  for  the  relative  excitation  of  P  and  S  waves  at  the 
source,  which  is  given  by  the  ratio  of  the  premultipliers  in  equations  (E2)  and 
(El).  Here  this  ratio  is  set  to  5.2,  which  is  within  0.004  of  its  value  for  a  Poisson 
solid. 

Finally,  a  factor  to  allow  for  loss  of  amplitude  relative  to  P  due  to 
any  other  cause  (for  example,  as  a  result  of  energy  partitioning  at  other 
discontinuities  above  the  source)  can  be  applied  to  sP  in  the  same  way  as  for  pP 
discussed  above;  this  factor  corresponds  to  SPFCT1. 
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APPENDIX  F 

METHOD  OF  SEARCHING  OF  MENTATION  SPACE  AND  OF 
STOftlMft  AND'DISPLAYING  RESULTS  FOR  A  GIVEN  PHASE  PAIR 

For  a  given  phase  pair  at  a  given  station  the  calculation  described  in 
appendix  E  is  repeated  for  each  required  search  point  in  orientation  space,  and 
for  each  point  the  calculated  relative  amplitude  is  tested  against  the  acceptable 
range,  the  result  being  stored  and  displayed  as  required.  This  procedure  is  now 
described. 


To  establish  appropriate  angular  bounds  for  the  search  in  orientation 
space  we  require  knowledge  of  the  symmetry  properties  of  the  P  and  S  wave 
double  couple  radiation  patterns,  shown  in  figures  4  and  5.  In  the  X  co-ordinate 
system  of  figure  4(a)  we  have,  for  the  P  wave  radiation  pattern, 


A 

~P 


e-e 


A 

P  O*±0+mtt 
<)>=$+niT 


....(FI) 


for  all  integer  m  and  n.  This  gives  a  two-fold  degeneracy  of  orientations  within 
the  region  0  <  9c  it,  0  <  4>  c  2if,  which  represents  the  full  radiation  pattern.  In 
addition,  for  a  point  source,  interchange  of  fault  plane  and  auxiliary  plane 
further  doubles  the  degeneracy:- 


A  “  A 

~p  fl=e  ~p 


0=+0+nrn 

<J>=-$+(2n+i  )it/2 


(F2) 


Furthermore,  the  existence  of  alternate  opposite  polarity  quadrants  adds  an 
antisymmetric  property  to  the  radiation  pattern,  which  is  given  by 
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The  relations  (FI)  to  (F3)  are  identical  for  the  S  wave  radiation  pattern. 


The  azimuth  £  of  a  station  from  the  earthquake,  and  the  corres¬ 
ponding  P  wave  takeoff  angle  at  source,  a ,  (and  possibly  a  different  pP  takeoff 
angle  y  for  a  deep  earthquake)  are  specified;  these  are  defined  in  figure  6.  For 
each  phase  pair  all  orientations  are  systematically  searched  using  an  angle 
increment  d,  within  the  following  bounds:- 


d  $  ill  *  it, 
d  (  6  $  n,  r 

d  <  r)  <  2  it, 


. ..(F4) 


these  bounds  representing  the  search  limits  when  all  orientation  space  is  to  be 
included. 


This  choice  of  bounds  takes  advantage  of  the  two-fold  symmetry  of 
equation  (FI),  so  that  it  includes  only  one  of  the  two  degenerate  orientations  of 
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the  X2Xj  plane,  thereby  avoiding  duplication  of  equivalent  orientations.  How¬ 
ever,  the  additional  two-fold  degeneracy  provided  by  interchange  of  fault  and 
auxiliary  planes  (equation  (F2))  is  not  exploited,  so  that  both  the  alternatives 
appear  as  separate  solutions  within  the  bounds  specified  in  relations  (F4). 

The  vectorplot,  illustrated  in  figure  7,  was  introduced  in  section  2.8 
as  a  means  of  representing  this  three-dimensional  "orientation  space"  in  terms  of 
the  three  angles  ty,  6  and  o,  within  the  limits  defined  by  the  relations  (F4). 
Although  the  source  orientation  corresponding  to  any  vector  on  the  vectorplot 
can  be  easily  interpreted  using  figure  7,  we  may  also  wish  to  interpret  angles 
outside  the  bounds  of  relations  (F4).  This  information  is' required  if  a  region  of 
acceptable  orientations  borders  the  edge  of  the  region  in  slip  angle  or  dip,  and  we 
wish  to  know  whereabouts  on  the  edge  of  the  region  it  "reappears"  (perhaps  in 
order  to  specify  bounds  for  a  restricted  region  search  as  described  in  section 
2.12). 


Figure  14  shows  a  plot  with  the  slip  angle  and  dip  extended  beyond 
the  search  limits  defined  in  relations  (F4).  Any  orientation  whose  angles  lie 
outside  these  limits  can  be  translated  into  an  identical  orientation  whose  angles 
lie  within  the  limits,  and  which  correspond  to  "principal  values"  of  the  angles. 
Additional  vectorplots  similar  to  that  of  figure  7  are  superimposed  on  figure  14 
to  show  correspondence  between  orientations  outside  the  search  region,  and  the 
equivalent  orientations  within  it.  From  this  it  can  be  seen  whereabouts  a  region 
of  orientations  which  reaches  the  edge  of  a  vectorplot  immediately  reappears  at 
another  part  of  its  boundary. 

Examination  of  figures  7  and  14  shows  that  the  boundaries  of  the 
search  region  as  defined  by  relations  (F4)  do  not  rigorously  fulfil  the  requirement 
of  covering  the  complete  range  of  orientations.  Along  the  boundaries  of  the 
orientation  space,  a  small  number  of  orientations  appear  twice  at  the  expense  of 
a  small  number  of  others,  which  do  not  appear  at  all.  This  can  be  seen  by  the 
inexact  fitting  together  of  adjacent  vectorplots  in  figure  14,  and  only  arises 
through  the  use  of  a  finite  search  increment.  In  this  connection  we  note  the  two 
parts  of  the  space  where  behaviour  is  anomalous.  These  are:- 

0)  (^,  "/2,  n  )  for  all  n  .  vertical  strike  slip.  Here  the  two 

degenerate  solutions  included  in  the  bounds  do  not  involve  inter¬ 
change  of  nodal  planes. 

(2)  (>!i,  n,  n)  for  all  il’  and  n  -  horizontal  slip.  Here  all  solutions  with 

equal  (il>  +  n)  represent  the  same  orientation  in  real  space. 

It  must  be  emphasised  that  the  size  of  the  search  increment  d 
imposes  a  fundamental  limit  on  the  accuracy  of  results,  and  the  non-rigorous 
behaviour  described  above  is  generally  inside  this  limit.  The  bounds  defined  by 
relations  (F4)  are  therefore  used  to  keep  the  search  limits  simple  for 
computation. 

At  each  search  point  in  orientation  space  the  normalised  amplitudes 
of  the  relevant  two  phases  are  calculated  as  described  in  appendix  F.,  and  their 
ratio  (with  attention  to  polarities)  is  tested  against  the  acceptable  range(s)  of 
relative  amplitudes  corresponding  to  the  input.  The  orientation  is  then  accepted 
or  rejected,  according  to  whether  or  not  the  calculated  value  lies  within  the 
acceptable  range(s)  (section  2.7).  The  orientation  is  transformed,  simply  by  an 
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angular  change  in  the  strike,  into  the  fixed  co-ordinate  system  (\l),  6,  a)  and  then 
displayed  and  printed  as  required  if  it  has  been  accepted,  or  the  value  of  the 
corresponding  element  of  the  orientation  array  is  reduced  if  it  has  been  rejected 
(see  appendix  G).  Printing  and  plotting  of  the  acceptable  orientations  is  done  as 
the  search  progresses,  while  the  orientation  array  stores  a  cumulative  record  of 
orientations  compatible  or  partially  compatible  with  all  completed  phase  pairs  as 
described  in  appendix  G. 


APPENDIX  G 


METHOD  OF  COMBINING  RESULTS  FROM  A  SERIES  OF  PHASE  PAIRS 


The  method  by  which  the  program  combines  the  results  from  a  series 
of  phase  pairs  is  now  described. 

The  results  from  a  series  of  phase  pairs  are  combined  by  means  of  a 
logical  array  F,  called  the  orientation  array,  each  of  whose  elements  corresponds 
to  one  orientation  in  the  search  mesh.  (A  given  element  of  F  will  only  correspond 
to  the  same  orientation  in  other  data  blocks  if  these  data  blocks  search  all 
orientation  space,  or  if  they  search  identical  restricted  regions  in  orientation 
space  (section  2.12).)  The  orientation  array  contains  the  "status"  of  each 
orientation  and  is  updated  during  the  processing  of  each  new  phase  pair  or  input- 
result,  so  that  it  always  contains  the  combined  result  of  all  the  phase  pairs  so  far 
processed.  Note  that  any  phase  pairs  which  are  contained  in  input-results  are 
included  implicitly  (section  2.13.3). 

If  the  retention  of  partially  acceptable  orientations  is  not  requested, 
(using  NVL)  then  we  require  to  retain  only  those  orientations  which  are 
compatible  with  all  the  phase  pairs  so  far  processed.  To  achieve  this,  all 
elements  of  the  array  are  assigned  a  code  which  represents  "acceptable"  before 
processing  of  the  data  block  commences,  and  the  element  corresponding  to  any 
orientation  which  is  found  to  be  unacceptable  to  a  phase  pair  is  reset  to  a  code 
corresponding  to  "unacceptable"  if  this  has  not  already  been  done  during  the 
processing  of  a  previous  phase  pair.  Thus,  acceptable  and  unacceptable 
orientations  can  be  identified,  and  by  accessing  the  array  after  each  phase  pair 
or  input-result  card,  we  can  obtain  a  listing  or  vectorplot  of  those  orientations 
which  are  compatible  with  all  phase  pairs  so  far  processed.  These  are  the 
"cumulative  acceptable  orientations"  described  in  section  2.8,  and  similar 
accessing  of  the  array  after  processing  the  last  card  yields  the  "orientations 
compatible  with  all  phase  pairs".  The  cumulative  fraction  of  compatible 
orientations  and  the  significance  (see  section  2.10)  are  always  output  after  the 
processing  of  each  card,  in  the  same  way  that  these  quantities  are  output  for 
each  individual  phase  pair  or  input-result  card. 

When  the  variable  NVL  is  used  to  facilitate  printouts  or  vectorplots 
of  partially  acceptable  orientations,  this  information  must  be  stored  in  the 
orientation  array.  In  order  to  save  the  extra  computer  storage  that  would  be 
needed  for  an  integer  orientation  array,  the  logical  (one  byte  per  element)  array 
is  retained,  and  different  one-byte  binary  codes  are  used  to  identify  the  different 
degrees  of  compatibility.  Up  to  35  different  codes  (given  in  the  program  listing' 
are  available,  and  we  shall  assume  that  these  correspond  to  the  integers  1  to  35. 
In  addition,  the  null  code  (equivalent  to  the  logical  .FALSE.)  is  used  as  explained 
below.  The  maximum  of  35  codes  can  be  increased  if  additional  codes  are 
required,  by  following  the  instructions  of  section  D3  of  appendix  D. 

Before  processing  begins,  all  elements  of  the  orientation  array  are  set 
to  the  code  corresponding  to  the  integer  NVL  (which  corresponds  to  the  number 
of  vector  lengths  on  vectorplots).  Whenever  an  orientation  is  reached  which  is 
incompatible  with  the  phase  pair  being  processed,  the  corresponding  array 
element  value  is  decreased  by  1.  If  it  is  already  1,  it  is  set  to  .FALSE.  This 
represents  the  "threshold  of  compatibility"  below  which  the  number  of  phase 
pairs  that  are  incompatible  with  this  orientation  is  no  longer  stored  (or  printed 
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out  or  plotted).  When  an  input-result  is  being  processed,  its  orientation  array  also 
contains  the  partially  compatible  orientations  corresponding  to  the  data  block 
from  which  it  was  derived.  Each  element  in  the  current  data  block  is  compared 
with  the  corresponding  element  in  the  input-result.  This  latter  value  is 
subtracted  from  its  original  value  of  NVL,  and  the  array  element  in  the  current 
data  block  is  reduced  by  this  difference  (setting  the  element  to  .FALSE,  if  its 
value  falls  below  1).  Elements  which  do  not  appear  in  the  input-result  are 
reduced  in  the  current  data  block  by  NVL.  Thus,  the  array  elements  acquire  the 
same  values  as  they  would  have  acquired  if  the  input-result  card  were  replaced 
by  its  constituent  phase  pair  cards. 

Referring  back  to  the  simple  case  where  no  partially  acceptable 
orientations  are  requested,  we  see  that  all  array  elements  are  then  initially  set 
to  1,  and  reset  to  .FALSE,  when  an  incompatible  phase  pair  is  reached. 

The  above  method  of  storing  partially  acceptable  orientations  means 
that  a  given  code  in  an  array  element  has  a  different  meaning  in  data  blocks  with 
different  values  of  NVL,  and  this  explains  why  any  manipulations  with  input- 
results  must  involve  data  blocks  with  the  same  value  of  NVL. 

When  a  printout  or  vectorplot  of  cumulative  acceptable  orientations 
is  requested,  only  those  elements  whose  value  is  NVL  are  listed  or  plotted,  and 
when  a  printout  or  vectorplot  of  cumulative  partially  acceptable  orientations  is 
requested,  all  elements  whose  value  is  not  .FALSE,  are  retrieved.  Those  elements 
with  value  NVL  are  compatible  with  all  phase  pairs  and  have  a  full  length  vector. 
Those  elements  with  a  lower  value  -  say,  n  -  correspond  to  (NVL  -  n)  phase  pairs 
being  unacceptable,  and  are  plotted  with  correspondingly  shorter  length  vectors  - 
the  shortest  vector  being  reserved  for  any  array  elements  whose  value  is  1.  When 
listing  partially  acceptable  orientations,  a  separate  search  is  conducted  for  each 
value,  so  that  separate  listings  are  obtained  of  those  orientations  which  are 
incompatible  with  each  number  of  phase  pairs. 

It  may  happen  that  the  number  of  phase  pairs  in  a  data  block  is  less 
than  NVL,  in  which  case  no  orientation  array  elements  will  be  set  to  .FALSE.  In 
this  case  the  orientations  incompatible  with  all  the  phase  pairs  are  not  listed,  or 
plotted,  or  included  in  the  output,  and  allowance  is  made  for  this  when  re-reading 
an  input-result. 
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APPENDIX  H 


LISTING  OF  RELATIVE  AMPLITUDE  PROGRAM  (FALT) 


FOCAL  MECHANISES  FfcCM  P 


LITUEP-P  4  UTTUS-P  RELATIVE  AMPLITUDES 


•  THF  FOLLOWING  IS  A  SUMMARY  OF  THE  PROGRAM  C6  SCR  I PT 1 C  N  ANC  INPU* 

•  -  FOR  FULL  CFTAJLS  SF£  PFARCE,  AkRE  REPCRT  NO.  0  41/79  ,  HMSt 

•  1 19791 •  fra  HXAMPLfS  QF  ITS  APPLICATION  SEE  PEARCc,  GECPHVS. 

•  J •  R.  ASTR.  SQC.  VCL.  50  PP  381  -  394  (l«77l  0«  PEARCE ,  PHD 

•  ThCSIS,  UN IV  Cf  NFhCA5UE-UPC*-TVNE  I1STTI  OR  PEARCC,  GEOPHVS. 

•  J.  F.  i  ST**  •  SOC.  VCL.  PP  -  ( 1 S  791 • 

D€  SCR  I RT  ICN  Cf  PROGRAM 


THIS  PRCC *« AM  SYSTEMATICALLY  SEARCHES  FOR  THOSE  FAULT  PLANE 
UMPiTAMCNS  »*H  t  CH  ARF  COMPATIBLE  MlTh  a  series  of  phase  PAIRS, 
HMkPS  CNF.  *PhASF  PAIR*  COMPRISES  THE  ACCEPTABLE  RANGES  ** 

•tITHCP*  P  A  L'TTLFP-P  *0M  P  4  LITTLES-P  *0R*  LlTTLEP-P  4 
LlTTtrS-P  RFL  A*  I  VC  AMPLITUDES  AT  AN  CeSEPVlNG  STAMGN.  TmE 
RACIATICN  PATTERN  RESULTING  «=kOW  A  CCUBLE  CCuPLE  FORCE  $Y$TEw 
ACTING  AT  A  POINT  IS  ASSUMEO  I  SEE  E.G.  HCKQA ,  OCP.  C8SER VAT  }Ry 
PUPS.  19f).  GIVEN  ThE  AZIMUTH,  TAVECFF  ANGLE  OF  P,  ANO  RANGES 
OF  ACC  fVT  AflL  6  P  A  LimEP-P  (OR  P  4  LITTlES-P)  AMPLITUCTS  IN 
ARBITRARY  uMtS,  WITH  THEIR  POLARITIES  IF  IDENTIFIABLE,  ThF 
PROGRAM  SFARChFS  THF  THREE  OIMENSICNAL  PARAMETER  SPACE  DEFINED  8Y 
SLIP  ANGLc  V.  THE  FAULT  PLANE  (PSD,  CIP  CF  FAULT  PLANt  ( DEL  T  A I 
AND  AZIMUTH  CF  THE  STATIJN  FROM  ThE  STRIVE  (ETA  I  AT  THE  OESIFEC 
ANGLE  INCPEMCNT  (CINC),  ANC  STORES  ACCEPTABLE  JRIFNTAT|?NS  IN  THE 
ARRAY  F •  ACC  £PTABl E  CRIFNTATICNS  ARE  CCNVEM  ENTL  Y  OISPLAYEC  AS 
•VECTOPPLCTS*  CN  GRAPHIC  OUTPUT  USING  SUBROUTINE  PlG^V  ANC,  IF 
RtOUlRfC,  A«f  PRINTFC  CUT.  AFTER  REPEATING  THIS  P®CCECURF  FC» 
EACH  PHASr  p A I F »  The  fault  planf  CRIENTATICNS  COMPATIBLE  aITH  all 
PHASf  PAl»?  A*r  PtC’Tr t  ANO  PPfNirD.  THERE  ARE  ALSC  "PTICNa  to 
PLCT  UR  !  eNT  AT  J  f,NS  NH I  CF  AR  H  COMPATIBLE  ■  l  Th  SOM*  BUT  NOT  ALL  OF 

ThC  phase  taips. 

ALTHOUGH  T»c  S  arch  NORMALLY  COVERS  ALL  THE  ORIENTATION  SPACE,  A 
«rSTF|frr'‘  REGION  of  ThE  SPACE  MAY  0F  SPECIFIED,  ENABLING  A 
RESOLUTION  4  !  •  c  .  TINCI  C*  1.0  CEO.  TC  BE  ATTAINED  m| TH  ACCfcPTAeiC 
SPACL  ANC  UMc  RCUU|PCM£NTS.  (THIS  IS  I NTF NOED  P0R  USE  AF ▼  E R  A 
PRFUMfSARY  CTARSE  SE/FCh  -  SAY  *  l  TH  DISC  ■  S.O  OR  1C.0  CFG.  -  HAS 
lOENTinrr  A  c,wPATleiE  RfGlON  CF  CR  I EN I  AT  I CNS.  I 


ACC  £PT  At  L r  SuUPCE  ORIENTATIONS  AND  CThER  INFORMATION  MAv  BE  CUT PUT 
IN  A  S  *  ANO AF n  “ACHlSE-RFAnAPLE  F  CRM ,  AND  IF  RF  CUl RED  RP-RSAJ  |N  A 
SUBSFOurNT  C.MPUTATICS  IN  PLACE  Cf  A  PHASE  PAIR.  THIS  IS  RtFE««EC 
TO  AS  A\  • INPcT-RESLLT •. 

A  Sf  PAP  AT*  P:  To®  AM ,  PU»*V,  IS  AVAILABLE  WHICH  GENERATES  FULLY 
ANNO^ATrr  vKT  PPLOTS  IN  A  FLEXIBLE  FC«*»*T,  fc.G.  FC«  PuBlICATICN. 


input 


C A®  C  1  T|TL^  CARC 


f c rm a t  loae 

T|UC  T  l  Tt  <.  OF  E  i  R  T  HGUAvfe  • 

'“ftUMNS  F 5  T:  do  SHCULC  BE  LScC  TC  IDENTIFY  This  DATA 
HICCK  IF  "C*i  THAN  ONE  CATA  BICCv  IS  TO  BE  P«<*CESSSr  IN 
JESPC r*  "c  ThF  SAMf  EARTHQUAKE. 

CART  z  CARD  * ! Th  P6flAMFTrRS  RELATING  TC  *HE  EARTHQUAKE*  ANC 
-  pfcCCrsSING  TFT  IONS. 

rcRfc'iT  FS.l, 2FA.Z, IZ, 1011 ,1 Z, I  3,1 3, IZ.5F5.Z, 

?*4*2«ll,A| 

NCP  TCTAL  NUMMCP  CF  PMASF  PAIR  CARDS  ANO  INPUT-RESULT  IARCS 

IN  TMiS  TATA  ELJCK  (IE  NUMBER  ff  Phase  PAIRS  PLUS  NUMBER 
«JF  INPUT-RESULTS). 

DINCIN  ANCLE  INCREMFNT  F0«  SEARCH  (DEGREES).  THIS  IS  SET  U  ThE 
PPOuKAM  T r  CINC,  WHICH  IS  AOJUSTEC  TO  THE  NFARES*  INTFGFR 
SLw»-MulT|Ptr  CF  90,  PROVICEC  ThFRE  IS  SUFFICIN'*  STORAGE 
IN  th*  rF|FNTATlCN  ARRAY,  F,  WhJCM  IS  NORMALLY  <FT  TO 
pfc'VlDf  F  C»«  A  MINIMUM  SEARCH  INCREMENT  0*  M  OF G.  WHEN  ALL 
nIINTATICN  SPACF  IS  INCLUOEO.  IA  FINER  SEARCH  INCREMENT 
IS  P^SSIBLF  FCR  °. C S T P  ICTEC  RECICN  SEARCHES*)  IF  DINCIN 

lsss  than  cp  egual  to  o  cr  greater  than  90  cinc  is  set  to 
o  ithis  is  intenceo  for  test  fl®pcs*s  :nly  an-  is  toc 

CGARSf  FCF  MEANINGFUL  RESULTS). 

IN  PRACTICE  CINCIN  -  5  RRCVICES  ACECUATF  TPF A  TM*NT  CF 
TVP!VAL  OA^A,  ANC  DINCIN  ■  10  IS  APPROPRIATE  FTB  A  C  3*R  SF 
SfACf.H,  *r  «£  SHOWED  BY  A  HlGPES  PESCLJTICN  Sf ARC F  CV6R 
ocS»*-ICT£C  RECIJNS  3C  INTEREST.  CINCIN  •  l  CR  2  IS  SUIT¬ 
ABLE  CCR  RFSTRICTfC  RFGICN  SEARCHES. 

OEPTh  IF  EARTHQUAKE  (NM).  LEAVE  BLANK  FOR  AN  |NT«A- 

C3USTAI  FAPTHiUAKC.  ONLY  used  IF  INDANG  IS  NONZERO* 

ANCPC  -'CRTOF  BAYICN  FACTCR  ®0R  SYSTEMATICALLY  ADJUSTING  ALL  THE 
P  TAKEOFF  ANGL.'S  CALCULATED  OR  RE  AC  IN  FOR  EACH  PHASE 
PM®.  TACh  p  TAKEOFr  ANGLE  IS  RESET  TC  ARC S IN ( A*  , pfa 
SIN(ALPhA)),  so  That  ThF  AOJUSTMFNt  of  Angles  IS 
k  !  V  Al  c  N  T  t:  MULTIOLYING  TFE  SCuFCE  LAYER  VEL'VITV  by  a 

fi:*'.  A  N  G  R  e  (FOP  Tm  1 5  PURPOSE  CM  Y ) .  |F  LE  c  t  -».ANk  IS 
rt  t  uo. 


i 
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ANGPPF  PERTURBATION  FACTOR  FOR  SVSTEMAT KCALLY  ADJUSTING  ALL  THE 
LITTLEP-P  T»»«OFF  ANGIES,  AS  FO*  ANGPF  ABOVE.  IF  LEFT 
BLANK  IS  SET  TO  1.0. 

INOANG  INDICATOR  TC  SPECIFY  HOW  P  AND  LITTLEP-P  TAKEOFF  ANGLES 

ARE  CALCULATED .  IF  LEFT  BLANK  THE  P  NAVE  TAKEOFF  ANGLE  IS 
PE  AC  DIRECTLY  FOR  EACH  PHASE  PAIR  I SFE  ALPHA  CN  CARCISI 
31.  IF  INCANG  NON-IERO,  THE  P  TAKEOFF  ANGLE  IS  OETERNINED 
FDR  EACH  PHASE  PAIR  FROM  01  STANCE/DEPTH  TABLES  CONTAINED 
WITHIN  THE  PFCGNAM,  USING  CEPTH  FROM  THIS  CARD,  ANO  OtST 
FROM  CARCIS)  2.  IN  THIS  CASE  IF  DEPTH  IS  LEFT  BLANK,  ThE 
EARTHQUAKE  IS  ASSUMED  TC  BE  INTRACRUSTAL .  ANO  THE  ANGLE 
IS  FURTHER  CORRECTED  ACCORDING  TO  SNELL'S  LAN  USING 
VPSPCE,  ANC  ASSUMING  A  SUB-mOhO  P  kAVE  velocity  of  B.l 
km/s.  for  any  phase  pair  kiTH  cist  less  than  20  or 

GREATER  THAN  100  IOR  LEFT  BLANKI  THE  P  HAVE  TAKEOFF  ANGLE 
IS  READ  IN  LSING  ALPHA  EVEN  If  INDANG  IS  NON-ZERO.  THE 

takeoff  ancle  of  littlep-p  is  reac  in  using  gamma  qn 

CARCISl  3,  CR  IF  THIS  IS  ZERO ,  IT  IS  SET  TO  THE  VALUE  OF 
ALPHA.  AFTER  ALPHA  ANO  GAMMA  HAVE  BOTH  BEEN  SET,  EACH  CAN 
BE  ACJUSTEO  LSING  ANGPF  ANC  ANGPPF  RESPECTIVELY.  THE 
TAKEOFF  ANCLE  OF  LITTLES-P  IS  ALNAYS  CALCULATED  FROM  THE 
FINAL  VALUE  DF  GAMMA,  USING  VPSRCE  ANO  VSSRCF. 

I  PR  NT  1  ,  I«RNT2,  1PRNT2,  IPRNTA,  IPRNU.  SNITCHES  FOR  PRINTING  THE 
ORIFNTATICNS  COMPATIBLE  WITH  EACH  CARO  (WHETHER  PHASE 
PAIR  OR  INPLT-RESULT1 ■  ANO  FOR  PRINTING  CUMULATIVE  ACCEPT 
-ABLE  ORIENTATIONS  ETC.  IF  SkITCH  IS  NON-IFRO  ThE  CCRRES 
-PCNOING  LISTIS)  OF  ORIENTATIONS  ARE  PAJNTEC.  SUMMARIES 
CF  RESULTS  ARE  ALWAYS  PRINTED. 

NCTC  THAT  lists  OF  OR IENTAT ICNS ,  ESPECIALLY  AS  REQUESTED 
BY  IPRNT1,  I °RNT2  AND  I  PANTS ,  ARE  LIKELY  TO  BE  VERY  LCNG. 

If  ANT  1  A  LIST  AFTER  EACH  CARO  CF  ORIENTATIONS  COMPATIBLE 

with  that  phase  pair  or  inpit-result.  for  an  input-result 
separate  lists  or  those  orientations  incompatible  with 

CNE  OR  MORE  PHASE  PAIRS  ARE  PRINTEO. 

IFRNT2  A  LIST  AFTER  EACH  CARO  ICTHER  THAN  THE  FIRST  ANC 

last )  cf  •cumllative  acceptable  orientations'. 

IFANTj  SEPARATE  LISTS  AFTER  EACH  CARD  I  OTHER  THAN  ThE 
c  I°ST  AND  LAST)  OF  'CUMULATIVE  F ART  1  ALLY  ACCEPTABLE 
CP IENTAT ICNS ' . 

IPPNTr  A  LIST  AFTER  THE  LAST  CARD  AS  FOR  IPRNT2. 
CONTAINING  ' CR IENTAT ICNS  COMPATIBLE  KITH  ALL  PHASE 
PAIRS' . 

I f P  NT  *  SEPARATE  LISTS  AFTER  THE  LAST  CARO  AS  FOR  IPRNT3, 
CONTAINING  'ORIENTATIONS  PARTIALLY  COMPATIBLE  MITh  ALL 
PHASE  PAIRS'. 

IPLC'1,  I PLC  T  2 ,  IPLCTJ,  IPLCTR,  (PLOT!.  SWITCHES,  ECLIVAIENT  TC 
IP6NT1  TO  IPPNT5,  n  CONTROL  PLOTS  OF  COMPATIBLE  ANC 
PARTIALLY  CC-FATIBLE  OR IENT AT ICNS .  IF  SkITCH  IS  NON-ZERO 

t,e  coR»rsf cncing  vectorpictisi  of  orientations  are 

CENERATEC. 

IPLCTl  CNE  V  EC  TORPLCT  AFTER  EACH  PHASE  PAIR  C»  INPUT- 
RESULT,  SHCkING  THF  ORIENTATIONS  COMPATIBLE  WITH  THAT 

caro.  fcf  •  phase  pair,  a  fixec  length  vectdpplot  is 
GENEFaTFC,  but  for  an  inplt-result  a  variable  length 
V'CTCRPLGT  is  generated  to  SHOW  The  compatible  ANO 
PARTIALLY  COMPATIBLE  ORIENTATIONS  OF  THIS  INPUT-RESULT. 

IPL0T2  DNE  FIXED  LENGTH  VECTC«FLCT  AFTER  EACH  CARO 

(other  than  the  first  anc  iasti  showing  'cumulative 

ACCEPTABLE  ORIENTATIONS'. 

IFLCT3  CNE  VARIABLE  LENGTH  VECTORPLOT  A'Tf«  EACH  CARC 
(OTHER  THAN  THE  FIRST  ANO  LASTI  SHOWING  'CUMULATIVE 

partially  acceptable  orientations*. 

IFlCTi,  CNT  FIXED  LENGTH  VECTCRFLCT  AFTER  THE  LAST  CAPO, 
SHOWING  'ORIENTATIONS  COMPATIBLE  WITH  ALL  PHASE  PAIRS'. 

IFLCT*  CNE  VARIABLE  LENGTH  VECTORPLOT  AFTER  THE  LAST 
CARC,  SHOWING  'ORIENTATIONS  PARTIALLY  COMPATIBLE  WITH 
ALL  PHASE  PAIRS'. 

ITCV3  INDICATOR  F CR  CONTROLLING  OLTPUT  ONTO  THIRD  OUTPUT  DEVICE 
(WHICH  IS  CEFINED  BY  N0EV3I.  LEAVE  BLANK  PC*  NO  OUTPUT. 
IF  SET  TO  1,  AN  ANNOTATED  SUMMARY  OF  INPUT  ANO  RESULTS 
FOR  EACH  PHASE  (INCLUDING  THOSE  IN  ANY  INPUT-RESULTS  I 
IS  PROVICCC.  IF  SFT  TO  2,  THIS  IS  FOLLOWED  BY  THE  STATUS 
CF  THt  ORIENTATION  ARRAY  ARTER  COMPLETION  OF  THE  LAST 
CARC,  AS  RFQLIREC  FOR  U5F  AS  AN  INPUT-RESULT. 

NVl  NUMBER  OF  VECTOR  LENGTHS  FCR  VARIABLE  LENGTH  VECTORPIOTS. 

this  co»p;sfcnds  to  the  maximum  number  of  phase  pairs 
which  must  be  incompatible  with  an  orientation  before  thf 

DEGREE  OF  INCOMPATIBILITY  IS  NC  LONGER  STORED  IN  THE 
OP  I FNT  AT ICS  ARRAY  OR  DI SPLAYED  CN  THE  PLOT.  IF  LEFT  BLANK 
OF  NEGATIVE  IT  is  SET  TO  I.  THE  PAXIPUM  POSSIBLE  VALUE 
OF  NVL  IS  GCVCRNEO  BY  THE  OIPENSICN  0*  VVIR  ANO  IS  SET 
TC  35.  IF  GREATER  THAN  3*  IT  IS  SET  TC  35. 

NUMBER  OF  TH  t AO  OUTPUT  DEVICE  INTC  WHICH  WILL  BF  WRITTEN 
RESULTS  ACCCAC ING  TO  I  DC  V  3 .  IF  LEFT  BLANK  IS  SET  TO  T 
WHICH  IS  NORMALLY  EQUIVALENT  TO  PUNCHED  CAROS. 

5> 
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ISEA  If  LEFT  BLAKF,  EARTHQUAKE  IS  BENEATH  UNO.  ANY  NON-ZERC 
PUNCH  INDICATES  THAT  THE  f AATHQUAKF  IS  BENEATH  SEA. 

ypsurf  p  nave  velocity  ce  the  surface  layer  (discounting  any  sea 

LAYER  1  ( KH/SI •  IF  LESS  THAN  OR  EQUAL  TQ  0.0  IS  SET  TO  *.0 

OSU*E  DENSITY  OF  the  surface  layer  ioiscounting  ANY  sea  LAVER  I 
(GN/CCI.  IF  LESS  than  OR  EQUAL  TQ  0.0  IS  SET  TO  2.3. 

VRS*C£  p  aAVE  VFLCCI1Y  OF  the  SOURCE  LAYER  (KN/St.  IF  LESS  TFAN 
OR  EQUAL  TC  0  IS  SET  TO  B.l. 

yssurf  s  have  velocity  of  the  surface  layer  uh/s>.  if  less  than 

CR  equal  TO  0.0  IS  SET  TO  VPSURF/SQRTCJI . 

VSSRCE  S  NAVE  VELOCITY  CF  THE  SOURCE  LAYER  IKM/Si.  IF  LESS  TFAN 
OR  fquel  TC  0.0  IS  SET  TO  VPSRCE/SQRTI3I. 

PPFCTF  NULttPLICATlCK  FACTOR  FCR  ALL  PFFCTt  VALUES  (SEE  UNOER 

FPFCTl  IN  CARC (SI  31.  IF  LEFT  BLANK  OR  ZERO  IS  SET  TO  1.0 

SPfC-F  MULTIPLICATION  factor  FCR  ALL  SPFCTI  VALUES.  (SEE  UNOER 

S RFC T 1  :s  CARCISI  31.  IF  LEFT  BLANK  OR  ZERO  IS  SET  TC  1.0 

l*CT3  IF  NON— (E*C •  ALL  SURFACE  REFLECTICN  COEFFICIENTS  (IE 

FFFCT3  ANO  SffCTO)  WILL  8E  SET  TO  *1.0  INSTFAO  CF  BEING 
CALCULATED  IN  THE  PROGAAM. 

REGION  IF  LEFT  6LANR .  SEARCH  MILL  INCLLOE  ALL  ORIENTATION  SPACE. 
ANV  NON-BLANK  PUNCH  INDICATES  TEAT  *  RESTRICTS  REGION 
3F  SEARCH  IN  CR1ENUTICN  SPACE  IS  REQUESTEC  -  OET AILS  ARE 
OIVfN  ON  CARO  2A 

CARC  2A  TARC  LcflNING  LIMITS  OF  RESTRICTED  REGION  OF  SEARCH  IN 

-  OR  I  ENT  AT i CN  SPACE.  (THIS  CARD  ONLY  TO  BE  INClUOEO  IF 

«EGIO'.  IN  CARC  2  NOT  LEFT  BLANK  I. 

'CARAT  3(F4.A*oX*F8.W) 

PSIt  SPALLESY  VALLE  OF  SLIP  ANCLE  TC  BE  INCLUOEC  IN  SEARCHES 

ICEGRFCSI. 

PSIN  LARGEST  VALUE  OF  SLIP  ANGLE  TC  BE  INCLUOEC  IN  SEARCHES 
(CfGREESI . 

DELTA!  SMALLfS*  valuf  of  oip  to  BE  INCLUCEC  IN  SEARCHES 
(CFJRf FSI . 

OEITAN  LARCEST  VALUE  CF  OIP  TO  BE  INCLLDEC  IN  SEARCHES 
(CEG»EFSI. 

STHK1  SPALLEST  VALUE  Of  STRIKE  TO  BE  INCLUDED  IN  SEARCHES 
(DECREES!. 

STRIKN  LARGEST  value  CF  STRIKE  TO  BE  INCLUOEC  IN  SEARCHES 
(CDCR'ESI. 

PSIl.  LtLTAl  AMO  STRIKl  ARE  CORRECTED  DOWNWARDS,  AnC 
PSIN,  DELTAN  ANO  STRIKN  ARE  CORRECTEO  URNAROS.  TO  THE 
NIAREST  SEARCH  INCREMENT  IN  CRIENTATICN  SPACE.  IF  PSIl. 
DEL ’A l  OP  STPIK1  IS  LESS  THAN  DINC  IT  IS  STT  TQ  OINC.  IF 
PSIN  C=  DELTAN  IS  GREATER  THAN  IBO.O  IT  IS  SET  TO  1B0.  IF 
STFtKN  IS  GREATER  than  360. 0  IT  IS  SET  TO  3SO.O.  A 
REQUIFFC  SEARCH  REGION  RHOSE  STRIKE  SPANS  NCR TH  MUST  BE 
DIVIDED  INTO  Tw3  SEARCHES,  CNE  NCTH  STRIKE  UP  TO  ANC 
INCLUDING  340.0  ANO  THE  CTHER  »ITH  STRIKE  BEGINNING  AT 
OINC.  FCR  A  RESTRICTED  REGION  SEARCH  THE  ChCICE  CF  OINC, 
AND  OF  the  St  ARCH  BOUNDS,  MUST  EF  SUCH  THAT  THE  NUMBER  CF 
SEARCH  INCREMENTS  »MN  EACH  ANGLE  SEPARATELY**  COES  NCT 
EXCEED  THE  NUMBER  CORRESPGNCI NG  TC  OINC'S.O  FCR  A  SEARCH 
OVER  ALL  SPACE,  MHICH  HAS  SUP  ANGLE  BETMEFN  DINC  ANO 
130.0,  DIP  BETWEEN  DINC  AND  180.0  AND  STRIKF  BETMEFN 
DINC  ANO  340. C.  This  GIVES  A  maximum  NUMBER  of  search 
INCREMENTS  CF  36  IN  SLIF  ANGLE  ANC  OIP,  ANO  T2  IN  STRIKE. 
IF  THESE  CCNC I T IONS  ARE  NCT  MET  THE  REGION  hf  SEARCH  MILL 
BE  RECUCEC  AS  REUUIRCO. 

CARCISI  3  HCP  CAROS  -  ONE  for  EACH  PHASE  PAIR  OR  INPUT-RESULT. 

- CAROS  CAN  BE  PLACED  IN  ANY  CRDER.  IF  THE  CARO  RELATES  TC 

AN  INPUT-RESULT,  IT  MUST  BE  LEFT  BLANK  EXCEFT  EQR  NCEV, 
THE  NUMBER  of  ThT  DEVICE  FRCM  MHICH  ThE  INPUT-RESULT  IS 
t;  be  of  AO,  WHICH  IS  RIGHT- JUSTIFIED  IN  COLUMNS  TV  ANC 
80.  Ic  DEVICE  s  (NORMALLY  THE  CARD  READER  I  IS  USEO  TO 
RE  AC  THE  INPLT-RESULT,  THEN  ThE  CCRRESRONOING  CARO  CECK 
MIST  BE  PLACEC  IMMEDIATELY  AFTER  THIS  INPUT-RESULT  CARC. 
IF  THE  CART  RfLRTES  TO  R  NEW  PHASE  PAIR,  IT  CONTAINS  ITS 
OCTAILS  AS  FCLLUMS. 

FCRWA'  A9,FS.0.3F5.I,2(AI,2F»0.3I.2F*.2,A2 

STANAM  station  NARE  CODE  ANO  SE I SMC GRAPH  TYRE  IF  REQUIRED,  IEC 
•F$K  S PI  •  OR  1  MOL  L»Z  •».  THIS  IS  USEO  ONLY  AS  A  TITLE, 
BLT  MUST  NCT  eF  LIFT  BLANR. 

AZ!  AZIMUTH  CF  STATION  FROM  EARTHQUAKE  IN  OEQREFS  IMERSUREO 

POSITIVE  CICCKMISE  from  NORTHI.  THIS  IS  CONVERTED  TO  ITS 
PRINCIPAL  VALUE  (BETMEFN  0.0  ANC  340.01  ANO  APPROXIMATED 
TC  THi  NEAAESI  VALUE  OF  STRIKE  IN  THE  SEARCH  »ESH. 

OIST  3F (CENTRAL  CISTANCE  FROM  FARTHCLAXE  TC  STATION  (CFGREESI. 
ONLY  USED  IF  1N0ANG  IS  MON-IERC.  TC  CALCULATf  P  ANO 
1|TTi*p-P  trkECFF  ANGIES  FR<»  TABLES  STOREC  MlTMN  ThE 
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ALPHA  TAKEOFF  ANGLE  JF  P  PROP  CCHNMARC  VERTICAL  AT  ThE  SOURCE 
(CEGPCFSI.  THIS  IS  ONLY  RF AC  IN  IF  INOANG>0.  (THIS  VALUE 
(UNLtNE  AZ1)  IS  NOT  APPROXIMATE!  TO  A  SEARCH  KESH  POINT. I 
THE  P  HAVE  TAKEOFF  ANGIES  FOR  ALL  PHASE  PAIRS  CAN  THEN  BE 
SYSTEMATICALLY  ADJUSTED  L SING  AAGPF  ON  CARD  2. 

GAMMA  TAKEOFF  ANGLE  OF  Ll"TLEP-P  FROM  UPWARC  VERTICAL  AT  THE 
SOURCE  (DECREES!.  IF  LEFT  BLANK  IS  SET  TO  THE  VALUE  OF 
ALPHA  (BEFORE  ANY  ADJUSTMENT  USING  ANCPF1 .  THIS  IS  NORMAL 
FCR  ShALLOh  IARTHQUAKES.  THE  LITTLEP-P  TAKECFF  ANGLES 

fcr  all  phase  pairs  can  then  be  systematically  adjusted 

USING  ANGPPF  CN  CARO  2.  NOTE  THAT  GAMMA  REFERS  TO  THE 
takeoff  angle  OF  LITTLEP-P  ‘‘IRRESPECTIVE  of  hhich  phase 
PAIR  THIS  CARC  RELATES  TC“.  THE  LITTLES-P  TAKEOFF  ANGLE 
( EE  T  A I  IS  CFRIVEO  FROM  THE  FINAL  VALUE  OF  GAMMA  NHEN 
REQUIRED,  LSING  THE  RATIO  OF  THE  P  AND  S  HAVE  VELOCITIES 
IN  THE  SOURCE  LAYER  ( VPSRCE/VSSPCE) . 

SIGNP,  PA2IN,  PA1 IN ,  S1GNPP,  PPA21N,  PPAlIN.  IN  THE  FOLLCHING 
PHASE  1  REPRESENTS  P  FOP  A  P  A  LITTLEP-P  OR  A  P  A 
LITTLES-P  PHASE  PAIR,  ANO  LITTLEP-P  FOR  A  LITTLEP-P  A 
LITTLE S-P  PHASE  PAIR.  PHASE  2  REPRESENTS  LITTLEP-P  FOR  A 
P  A  LITTLEP-P  PHASE  PAIR  ARC  LITTLES-P  FOP  A  P  A 
LITTLES-P  OR  A  LITTLEP-P  A  LITTLES-P  PHASE  PAIR. 
CUTTLEP-P  INCLUDES  ITS  SER  BED  AND  SEA  SURFACE  ANALOGUES 
AND  LITTLES-P  INCLUDES  ITS  SEA  EEC  ANALOGUE!. 

signp  polapity  of  phase  i  as  ‘Cbseryeo*  gn  seismcgpah. 

h  .  POSITIVE  (IE  UP>  AND  -  ■  NEGATIVE  (IE  OCHNI.  ANY 

other  punch  op  blank  cofresfcnos  to  uncertain  or  unknchn 

POLARITY  ANC  SO  BOTH  POLARITIES  ARE  INCLUDED. 

PA21N,  PA  I  IN •  LChER  ANO  UPPEP  BCUNOS  RESPECTIVELY  CN 
THE  POSSIBLE  AMPLITUDE  OF  PHASE  1  AS  OBSERVED  ON  ThE 
SEISMOGRAM,  MEASURED  IN  ARBITRARY  UNITS.  AMPLITUDES  ARE 
SPECIFIED  BY  POSIT  IVF  VALUES,  THE  POLARITY  BEING 
CC  NTRCLLEC  BY  SIGNP. 

SIGNFP,  PPA21N,  PPAlIN.  SAME  FOR  PHASE  2. 

NOTE  that  IF  THE  AMPLITUDE  RANGE  PF  EITHER  PHASE  HAS 
ZERO  HIGTH,  CF  IF  THE  AMPLITUDE  RANGES  OF  *BOTH‘  PHASES 
INCLUDE  ZEPC.  THE  PHASE  PAIR  IS  OELETID  BY  THE  PROGRAM. 
(ThF  INCLLSICN  OF  ZERO  IN  BCTh  amplitude  RANGES  PERMITS 
ALL  possible  relative  amplitudes,  so  that  all  source 
ORIENTATIONS  MOULD  be  COMPATIBLE!. 

ppFcn  “ultiflicayick  factor  applieo  tc  calculated  littlep-p 

AMPLITUDES  (IF  THIS  PHASE  pair  INCLUDES  A  LITTLEP-P 
TYPE  PHASE!  TO  REPRESENT  ANv  LOSS  OF  LlTTLEP-P  AMPLITuCE 
DURING  PROPAGATION  WITH  RESPECT  TC  THAT  OF  P.  CTmFR  THAN 
AT  T He  SEA  8FC,  SEA  SUREACE  OR  FREE  SURFACE  (WHOSE 
REFRACTION  ANC  REFLECTION  COEFFICIENTS  ARE  NORMALLY 
ALLCwCC  FOR  IN  THE  PROGRAM!.  IF  LEFT  BLANK  IS  SET  TC  1.0. 

SPFCT1  MULTIPLICATION  FACTOR  APPLIED  TC  CALCULATED  LITUES-P 

AMPLITUCr  (IF  THIS  PHASE  PA  I P  INCLUDES  A  LITTLES-P  TYPE 
PHASE!  TC  OFPBESENT  ANY  LOSS  OF  AMPLITUDE  RE  L  AT  l  yF  TO 
THAT  cf  p,  FCR  ThC  SAME  PURPOSE  AS  “PFCT1  ABOVE.  IF  LEFT 
PLANK  IS  SET  TO  l.C. 

NCTE  THAT  PFFCT1  0R  SPFCT1  FOR  ALL  PMASF  PAIRS  may  BE 
SCALED  SYSTEMATICALLY  BY  THE  USE  CF  PPFCTF  AND  SPFCTF  C* 
CARC  2. 

PHASES  CODE  T0  IDENTIFY  THE  TYPE  CF  PHASE  PAIR  To  yHICH  THIS 

CARO  RELATES.  PUNCH  »PP*  FCR  A  P  A  IITTLEP-P  PHASE  PAIR, 

•sp*  ‘o«  »  pi  littles-p  phase  pair,  ••••  fcr  a  littlfp-p 
a  littles-p  phase  pair,  if  the  earthquake  is  beneath  the 

SEA  (ISEA  NCN-ZERO)  THEN  REFLECTION  AT  THE  SEA  BEO  IS 

assumlO  ccr  the  above  cases,  mhere  littlep-p  reflected 
f °c m  the  sfa  surface  is  lsec,  plnch  'pe*  for  a  p  a  lht- 

LEP-PISSF)  PHASE  PAIR  HR  '‘E*  FOR  A  LITTLEP-PISSF I  A 

littles-p  phase  pair,  any  other  punch  c«  blank  is  assumed 

to  BE  A  p  A  LITTLEP-P  PHASE  PAIR. 

FURTHER  OPLFTE  DATA  BLOCKS  may  FCllCM. 

FOP  normal  termination  CF  th3  PROGRAM  the  last  DATA  BLOCK  MUST  BE 
FQLLOWF C  9Y  CNF  BLANK  CARO. 


OOOuPLE  PRECISION  SINTAB ( 360> .COSTAS (  360 1  ,T I TlI ( 10 1 ,T I T lE I ( 5! , 
1090.0PI l,0INC,PPFCTF,CPINC,AZI,ALPHA,PAI,PA2,PPAI,PPA2, 

2az,paq,ratm*i,ratmm,sinal,cdsal,rati,rat2,rat3,rata,qsmall, 

3SMALL,SPS0,SPC0,CPSC,CPC0,SESA,CESA,pSIN,0ELTAN,0INC IN, 

R  PU,  P12,  P21.  PZZZJ,  PJ1,  P3233,PI,P2,F3,PPl,PP2.PPi,AP,APP, 
SARAT ,STARS(12I ,UL INC (  10  I ,F TRUE , S ,ENCC MB , FNTRur , S TATCN , ST  AN AM , 
NH0Ll,rtCL?»FGLA»HCLt,ANCIS,PC5TIV,NEGTIV,BLANKB,H0LA,M0LB, 

TP A l IN, PA2IN,PPAIIN,PPA2|N,RATM*2,RATPN2,FPECT1 ,SPF CTE ,UL 1NES ( 1 C! 

RF.AL‘4  Heel  ,HCL5,CP  ,BE  ANK4 ,  PLUS.MINLS 

00PU8LC  PRECISION  BE TA.SIN&c.COSBE, RLITPP.PL I TSP,SPFCT1,SPFCT2. 
1SPFCT3,SPFCT,R00T3.SPA1,SPA2,BFTAI, 

2SINPSI,COSPSI.SASP,SACP,CASP,CACP,S8SP,SBCP,CBSP,CBCP, 
3SINOFL,COSOEL,CACO,SASC,SASPCD,SACPCC ,C ASPSC,C ACPSO, SBSD.SBCC, 
4CBSC,CBC0,SBSPC0,S8CPSC,SBCPC0,CBSPS0,CBCPSC,C8CPCC, 
5SINFTA,CCSErA,SPMI,RRM2,SPM3,TMETA,PHl,SINPHl,COSPHI,ASPTHF, 
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AASPPHt,5SSI.SECl,CESI.CECl.SPANGl.SPANG2.ASP,SBSPS0.CeSPC0.SEST, 

7CeST.SINTHC.LPPLSP.PfCT 

0 DOUBLE  PRECISION  PPFCT3, GAMMA. GAPNAI,S1NCA.C0SGA,PPL1.PP21.PP)1. 
1PP12.PP2223.PP3233.SESC.CESG, VSEA.VPSURF .VPSRCC.VRATl.vRRT2.CSEA. 
20SuRP.upAT  1  .PLPPE  .LPPCLS.PPPCT.PSl  l.CELTAl.STRlKl.STRIxN, 
SPN.PN.SN.vrSUR'.VSSRCE.ASURF.RSRCE.PSURF .PSRCE.RSPS.FFACTl.PFACt, 
ABAC  AL.SREAL.DEPTH.OIST 

OAEAL  *8  TCASfM  J|,  T  CAR  CD  1 10). TITLED!  10)  .DINCD.PSUD.PSINO.OELTIO. 

I OCL TND. ST RAID. STRAND. P RFC FD.SPPCPO .VPSAFO .OSURFD, VPSACD, VSSRFD » 
2VSSRC0.CEPTFC .R  SURFC . PSURFD.RSRCEOtPSRCED.DUHMV.T ITLC  JIF I . ANCPFC, 
3ANPPF0 

REAL*8  CTEf  l’,14J,CCEFOm».COEFD2m  . CCFF03( 7 1  .COEFOAC Ti . 
lC1fcF05ITl,C0CF0Al 7I.CCEF071  71 .CCEFOBI 7 » .CCEF09C 71 .C0EF10I 71 . 

2C0EF1 1  (  7 I .COt FI  2 1 7) *CCEF 131 71 .C0EM41 7) ,CEPI1A).VP0.0ISTHN,0ISTMX, 
3ANGP6 . ANCF  PF.OISTR , A 1 . A2 

RE  AL*8  VC ATE. PC ATE .STIPE 

REAL**  PHASES. PP.SP.STRSTA, PE, STRE, FlA.VVL PI  36  I, REGION, TITLEF1AI 

01HENSICN  11 1(10),. — 1101, KRKIIOI 

.QUI VALENCE  1T1TIE111I.ST  A TON I.1TITLEI12I.ST AN AN) 

EQUIVALENCE  (TlTlf J(l J.riTLCFCll I 

OEQulVALtNCE  1 1SCNPP, ISCNSPI. ( S IGWP,  S IGNSP) , 

kppai,spaii,ippa2.spa2>.ingoepp.ncoespi 

LOGICAL •  l  FI  j6.3A.72l.Fi.VVLIA.3AI 

EQUIVALENCE  IFi.FlSl.IWUl.ll.VVLRIlll 

01NENSICN  NTRUESI 351 

REAL**  tpns.lnits.enc.endd. REGNO 
REAL**  CICITI10l.TITLEFI5.Sl 

LOGICAL*!  NOEVLIAI.TENSL.UNITSL.ELAAPI 

OIM'NSICN  1110151 ..j JC l5>,KKKDt 5 l.t VINCIS) . IVLNlet 

equivalence  ipfases.ncevli i»> .itens, »en?i) . i units, unitsli 

OEUUl VALENCt  IC0EFI1.  1 I.CCEFOllll I.ICCEF <1 .  21 .CCE'02( 11) , 

1  (CCEFI1,  ’),COfF03ll»),ICCEFIl.  A1 .COEFO* (11). 

2  1C0EF11,  ■ l,C0EF05<l!l,ICCFF|l.  6) , COEFO t 111), 

3  (COEfll.  Tl.COEFOTIlH.ICCEFIl,  »)  .CCEFOBUI » , 

*  ICC£F 1 1 ,  S 1 .COEFOQI II I.IC0EFI1.10) .COfcF 101 1 1 1 , 

5  (CTFFIl.lt  I.CCEF1H1  M.ICCEFI  1,12)  .CO'Fl  2(1)  >, 

6  (COEMl.ni.COEFimil.ICCEFll.lAl.COEFlAllll 

0 1  *E  NS  I  CN  «‘-CUlAE»FMS 


SINTA81360) .CCSTA81 3A0I .F (NC l“* 2 , NO t**2,N0 I P** » , 

HHEPF  NCIH  «  "AXICRG/CINCI  t.E.  NDl *  IS  THE  maximum  Pr$si8LE 
NUMBER  a*  INCREPtMS  IN  90.0  OEG«EE  EANO  EXCLUSIVE  CF  LONE*  11*17. 
WHEN  a  sestmctec  search  region  IS  R'QUFSTFC.  THE  DIMENSIONS  OF  F 
Fix  7 hE  »A«IMUM  NUMBER  OF  SEARCH  INCREMENT'S  IN  EACH  CI»ENSICN 
(SLIP  ANGLE .  CIP  ANO  STRIXI  RESPECTIVELY!. 

V  VI  1 NOI M  V  ,  A  I  ,  WLR  1  NOT  *V  I  .NT  RUES  (NO  I  MV- 1  I  ,  »HEPE  NU1PV  IS 
MAXIMU*  VALUE  CF  NVL ,  FLUS  ONF 

DATA  NO  I  *  /  U/,SMALL/l.Gt>-lA/,QS»ALl/-1.0C-l*/,M>!HV/’6/ 

DATA  STSTGN/eHSTATICN  7 

ODATA  STAOS/12*8M***«*A*»/.ULlNE/l0Aei - 7, 

1UL!HCS/1C*«H»* •«•«■■/ 

ODATA  ANOIS/RH  ANC  IS  7 ,°OST I V/8MPC  SI TIVE/.NEGT I V7AHNEG AT  I  VF  7  , 
l  OF  /*M  r.o  7 ,  HLANK  8  7  AH  7.8LANXA/AM  7  *  BLANK  1  /  lH  7 

DATA  PLLS/AH.  /.MINLS/AH-  7 

DA  *  A  pp/AMfP  /.SP/AhSF  /.STRSIR/AH**  7.PE7AHRC  7,STRE7»M*f  7 

OOATA  PLITEF/  2 *0*CC 7EE 970 7*0*07 ,PLI TSP/  2A0A007ABA2DTA0AO7 , 
1LPPLSP/  2*0*097C7E«A2C 7AO/.PLPPE7  IC 7* 89 70 7A2 4216*07 , 

2LPP*  L  5/  7S7C7A2A2EEAPA2077 

SU“MAFY  IF  phase  cress 


PHASE  Ml® 

P  « 

P  A 

LITP-P 

P  A 

LITP-P 

L  f  TP-P 

LITS-P 

( SEA  0(0 

LITP-P 

ISEA  SU«- 

( SEA  8F0 

IP  UkOM 

ISCA  StP- 

P ACC  IP 

|F  UNOCp 

SC  A  I  A 

FACP  IP 

UNOCASCAI 

SMI 

UTS-P 

UNDCAS'AI 

A  UTS-P 

INPUT  KU.PAP8 

PP 

SP 

STASTA 

PC 

STifc 

HCT^INO  »'CILEPIth 

fl  ITPP 

PtlTSP 

LPPISP 

PCPPC 

LPPCLS 

VALJF  wf  ! NC5* 

1 

2 

j 

4 

5 

OAT  4  p 14 /AH  / 

0 OAT*  VVL* 7  /iMAOAOAC.AFI 

*  4H2  • 

483  *484 

*485 

*  486  « 

|4Mf  *4M8  **H9 

,afa 

*4NB  • 

4MC  *480 

•  4HC 

•  4NP  • 

24mC  *48m  ,*H| 

»af  j 

*AHA  * 

4ML  *4HP 

*4Hk 

•  4MC  • 

34MP  94hQ  ,4H* 

44NV  *N8Z  / 

.APS 

f  AMT  , 

4Hll  ,4HY 

*488 

*  AH  4  , 

OOATA  n;c!T/cHO  . 

AH  I  ,  Ah2  .AH3 

•  ♦84  . 

AM3  .AHA 

1+HT  *4*A  ,4H9 

/ 

O0ATA  rIUEl-/*H  P  ,*► 

1  AH  P  ,*► 

2  4H  LlT.AHP 

3  4M  P  ,  <•*- 

4  4H  LIT.4HP 
DATA  TCAPO/86  pAtT  -  ', 
0ATA  FNC/46FND  / 

OATA  Tl TLFF/4HINPU.4HT 

TATA  COfFOl/  1 1  A 
t  -3039.3T23T90LT,  2348 
data  C0FF02/  62 

1  -  2263.  242554442.  1791 


|4H  i AM  LIT.4MP-P  , 

.4H  ,4H  HT.4MS-P  , 

-P  ,  4  h  ,4H  LIT  ,  4H$— P  , 

, 4HL ! TP , 4H-* 1 S  *  4MSF I  , 
-PI ,4mSSFI ,4H  LIT ,4HS-P  / 
6HTANCADQ  , 6HCLTPUT  / 

-RE , 4HSULT ,4F,CEV,AHICE  ,4H 


OATA  C0EF03/  57. 

I  -  1 6  70. 70c41 3385,  1  225  . 

OATA  C0EF04/  32. 

1  -1*80.885057561,  1114. 

OATA  CCS  F05/  46 • 

1  -1234.573561786,  1066. 

OATA  COE  606/  SI. 
1  -  1 341 .7S3|6  25o7,  1040. 

DATA  CCEF07/  !  6  • 
i  -i4a«5.<:*;aoi384,  iii:. 

OATA  COEFOb/  67. 
1  -1677.655224801.  1254. 

PAT  A  COEf 09/  86. 

1  -217C.35641  19T7,  161!. 

PATA  C0EF10/  4*. 

1  -2265.d«5625015,  1667. 

OATA  tCEFU/  75. 
1  -  1  766.  472686552,  12e4. 

OATA  cor'io/  66. 
1  -  1549.917268613,  11  16. 

OATA  CCEF13/  61. 
1  -1435. •’0*5714  18.  10  0  7  . 

OATA  CCEF l*/  44. 

1  -11*0. £23592552,  t*0. 

OOATA  OTP/  0.0  ,  22.00, 
I  413. 2b, 476. 66, 

OATA  VP0/8.1Cn/,0IST»4/ 

COP Hon  /LieCAY/  VLATE 
CCHHon/P/P  1 1 

PIl-A'AMl.  01/45.  C 
OP! l-PATANIl. 001/4*. CO 


199-90 

090-190 

riTiEH3»«uiiNriii 

TI’L5II51»tLINFlll 

SPFCT2-5.2CO 

R0XT2-CSC»T(3.roi 

VS’A-l.SCO 

0S6A=l .CO 

KFt 1CS=PLA6K4 

IS  12-0 

IEN2-0 

ff»C’i-i6.co*c<;o*c9c/cpii 

pH«SrS-SLA4K4 

TEI.S-BLASK4 

TB'H-PLANS  I 

UN!  TS-SLAM4 

UN  I  T  5L  -81  AF  K  1 

NCEVLI  1  I-81AKK1 

86CNC»:UAN«4 

CALL  OAT IN(«C ATJ ,BT 1»E 1 


.3334007*1, 
.8925536*7, 
.175446198, 
.680028642, 
.769408806, 
.899795499, 
.1590967**, 
.69*056367, 
.  717137895, 
.782*66*93, 
.992933*83, 
.959892218, 
. 775055138, 
.  7333*9088, 
.575*239*0, 
.565273810, 
.3*3649709, 
.46570065?, 
.267927177, 
.289350018, 
.980981103, 
.346007695, 
.415328883, 
.742122191 , 
.639910983, 
.981388099, 
.009040666, 
.  107839531  . 


■774.634050709, 
■  94 T. 04 9 765 704, 
■567.867113917, 
■738.814848484, 
•400.270320049, 
-565. T807C6808, 
■3(3.057462708, 
■458.471828878, 
•321.147746728, 
■4(0.081157557, 
■350.0(2225721 . 
•441.552579773, 
■378.159412357, 
■466.998315637, 
■447.552257854, 
■505.860094053, 
■5(5.054639974, 
■(38. 856341963 , 
■(25.541669240, 
■(52.539913277, 
■454.5(9576279, 
-513.146411454, 
■441.9(0135453, 
-448.770012873, 
-429.068555158, 
-400.721117374, 
■318.062*60720, 
■3(0.672478252, 


.255615952, 
.185654022/ 
.097667831, 
.723315779/ 
.812188994, 
.078304124/ 
.478230158, 
.896783304/ 
.1569353(4. 
.097047917/ 
.285833113, 
.220168635/ 
.079128273, 
.874  787678/ 
.151603194, 
.408007722/ 
.971874105, 
.886240926/ 
.6281161(5, 
.454515025/ 
.301030570, 
.851405402/ 
.795847821, 
.235173081/ 
.133623800. 
.845557863/ 
.868132317, 
.619892851/ 


,  96. 3 8, l 59. 76,223.14, 286.52, 349. 
,5*0.04.603.42,666.80.730.18,793. 
/ 20. DO/, 01 STHA/lOO.OO/.NOEG/b/ 


DC  FOB  EACH  EARTHQUAKE  CATA  BLOCK 


till  Rf  AC  I  5 , 1 )  TITLE 

1  FGRHAT ( 10A6 I 
30  9  I  .  I  ,  8 

IFITIHCU  I.N'.SLAKKO  GO  T0  1000 

9  continue 

GC  T c  5555 

1000  w*tTFU,2»  S’ABS.VCATt.BOAtr, STARS, at!»E, TITLE, ULINE 

2  0Ffl-HAT(  1H1  , 1 2  A  8  i  5K  ,  1  6H  E  RQGBA  R  UPCATEC  ,A8/IX. 

1 96H*  FOCAL  HCCHANISHS  CIVEN  P,  II771EP-P  8  UTTIES-P  RF1ATIVE  AHP 
2L 1 TU0€  S  AT  A  SCBIE5  CF  STATIONS  •,5K,12FCATF  OF  AUN  ,A9/ 
3lX,12A8,SK,WHTINt  CF  FUN  .A8//9A,  10A8/9X,  1CA81 
0BEA015.2I  NC»,t INC  IK .CEPTH.ANGPF.ANGFPF, INOANG , IPSNT 1 , IPRNT2, 
lIPPNT?,!PRN»*,lPPNT5,IFlCTl,lPL,77  2,lPlOT!,|PLOT4,IPLCT5,IOEy3, 
2NVL,’.PCV3,  IStA.VPSUOF.CSUBT  ,  VPSB  CE  .  4  SSLRF  ,  VS  SB  CE  ,PPFC  T  F  ,  SPFCTF  , 
3IFCT3.RCGIC  N 

3  FQFHAT(I5,F5,0,F5.1,2FA.2,l2*10!l,I2tl3,l3,l2f5F5.2,2F*.2,ll,Al| 
IFINrSV3.LS.OI  NOF  V  3 ■ 7 

IFI  tDEV3.GT.PI  hBITT (KCFV3, 35|  TC »»C , V C ATF  ,P CA T6 ,R 7  I  HE ,T I TLS 
35  0F0FNAT1  3A8 , I 6MPF0CF AH  LPCATFD  ,A8,l2h  ANC  RUN  CN  ,A8,4H  A1  ,A8/ 
110A81 

: 

:  PROTrcrinN  ftc. 


OlNC-OSO/CFLOA’l  !  I 
N1NC-! 

IFICINC  (N.1E.0 .00 .CB.CINCIN.G7 .90.00 )  CC  TC  10 
01 NC -090 

OC  8  1-1,150  41 


If  (HOPt  IQOtn.NC.0J  cc  to  e 

IF(OAftS(C!SC!K-DSO/CFlCATUII.GT.C*aSICINCIK-C!NCM  GC  TC  0 

DINC*P90/DFLQAT| I | 

NINC-l 

CONTINUE 

NP-NiNC*2 
NT«NINC*2 
NS»MNC  *4 
NT  ABL  6»N ! NC  *4 
NCCFB-NP*NC*NS 
FNCCHB*NC0P6 

FF  *CT*CINC*CINOOINC/FFACT| 

PM«CrL  1ATINP)*CINC 
OK*CPLOAT|hC)*CINC 
SN*OFLOAT|KSI*ClNC 

PS1 1-OINC 

DfLTAl*01NC 

ST4JKI-CINC 

PSIN*PN 

OFLTAN-CN 

$TAIKK’«<N 

IFIPPPCTf.fcO.O.PO)  FPFCTF-i.30 
IH  SPFCTF.eC.O-OOl  SPFCTP-l.OO 
IF iVPSuaF.tF.O.DOJ  VP^LRF«4#oo 
IFI vPSFCf.LE.C.OOl  VPSACE-B.IDO 
VPATl-Vi5A/VPSUP': 

V*  AT2=VPSCCC/ypSPCf 

IF lOSUFF.Lf .0.00)  CSL»F*2.300 

CPATisCSFA/CSuFP 

IF< V3SUM.LE.O.CO)  V$$t*F.VPSU*F/fCei3 
IMVSSFCS.LC .O.OOI  VS  $RCfc« VPSRCE/0CCT3 
FSU°C*VPSUFC/VSSUC e 
8SPS«e  SLoc*Ptl»Rc 

rs«>cf*vpspcf/vssrce 

OPS'J°r  * ( VP  SLR r • VPSU® F- i .00»VSS0PF*%SStP« 1/12. 00*1 VPSU*F*ypsu0P 
1VSSUFP*VSSURC  » ) 

OPSRCP=C vpscrp. VPSFCt-i.ru* VS $RCE* VS SRCP I /(2.C0* I VPSRCI-VFSRCF 
lvSS«a»VSSRC€  I  I 
IF  (KVL.GT.iCINV-I)  NVL*N0IM^-| 

IP I NVL .16 .01  NVL«l 
NVLPl=NVL»l 

IFIANGPF.EC.o.CCJ  ANGPMUOO 
ic< ancppf.ec.o.coi  aNCPPF-i.oo 

IPIOEPTH.LT.CFPi II)  CFF  Th*OE Pf 1 1 
!F(DFPtF*Ot .C  E  P I 14) )  Cl PTH*OEP ( 141 
DO  31  IDEP-2,14 

IFICFP*  IDFf I.CT.CEPTHl  GO  TC  32 

CONHNUF 

IOEP-14 

ICFPMl»ICcP-l 

oifipegicn.m  .BLANK*  ) 

IP  FAOI 5«  4  )  PSIt •PSlN,rClTAlv JFLTAN.STRIKI.STOIKN 
F 0 6 M A T I  3(Pp,4»,JK»Ff  *4|| 

IPIPSIl.LF.PSIM  c:  TC  s 
PAC*  PS  I  I 
PSI l « p  j  IN 
PSIN=PAC 

IF  <CCLTAl.lE.OFLTAM  CC  TO  6 

PAC-0ELTA1 

OfeLTAI-OtLTAU 

oeltan-pac 

!FI*TB|Kl.LF.S*ftlKN)  CC  tC  ? 

P4*-$TP  I  K 1 
STF IKl»ST*!KN 
STP JKMPA.; 

IFIPSI l.LT.niNCI  Pill-CINC 
1F(DFLTA|  .LT.r  INC)  CUTAl-OINC 
IFISTBIK1.LT.CINC)  STAIKI-01NC 
IFIPSI  l.GT.FN)  PS1I-FA 
|F|CFt’A|.CT.OM  oflth-un 
IF|STBIK1.CT.SNI  STRIKl-SN 
IF|PSM.Lt.OINC)  PSJMCINC 
IMOELTan.LT. OINCI  It  L  T  AN«0  INC 
|F|?TR  IkN.lT.CI  NC  )  stmkn-dinc 

|F|PSIN.CT.FM  PS  I N •  F A 
IF  ( nF LT  AN .  GT  .  CM  OF  L  TAK  »0N 
IM STR IKK.GT.SN)  S  Tt I K\ *SN 

|P1«PSI l/r INC 
ini-'FLT A|/r INC 
1SI-STai«|/[ INC 
1*1*1- !Pl- l 

iriBBt  •  tci-i 

!SI«I-ISI-I 
|  Pfc  •  I  P*4  -  B  s  IN  )  /  r  l  NC 
f PN*NP-  |  F  N 

!^N«irN-->.  LT#N)/CINC 
i  pN*Nn- 1 r  s 

ISN-ISN-STBIKM/L  in^ 

ISN*NS- J 

IM  IPN-  :•*  |P|.GT.».r  l"*i  I  IPN«!Pl*l#NC|BB2 

i»  ( tr*#-  :*m«i  !»•; )  ion«ioi«i*ncipb2 

|F|  IS*#-ISI«l.C*.NO!»*M  I  $%•!  SIPI4N0INB4 
NBB ■  I  BN-  !P1-1 


NC-»IOf+-If  l-l 
►4SP«f$*-ISl"l 
NC  jMBR»NPA*NCk*NS»> 

C 

PSI l*OflCATCIPll*riNC 
OFlTAi-OFLCAT(ICl)*r INC 
iT;i!ia«CPLCArusn*rlNC 
*>StN«OFLCATIlPNI*C|NC 

O=LTAN»0FLCAT( I CN ) •r INC 

>▼3  UN-CFLCAM  ISN)*C  1*C 


IF(REGICN.R£.8LAN*4)  CC  TO  il 

ISl-ISl 

I'»;»ISN 

U  0WMTM6,12I  NOP, r  INC  IN.QINf ,NlNCiFSIl,P!IN,OlNC,OElTAl,CfLTAN, 
1D1NC.STR  iKi.STmKN.C  INC 
12  OF3RMATC/ 

l20X,48HNUMeER  OF  PhA<E  PAI R / I NPL T-RE SLl T  CARCS  ,14// 

220X.48HANGIE  INCREMENT  FQP  SEARCH  US  INPUT)  ,F|0.5, 

30H  OEG.  / 

420<,4§HANCLE  INC-EMfNT  FOR  ScARCf-  (CCRRFCTECI  ,F10.», 

5BH  DEG.  / 

620X,43HNUNBcp  CF  ANCt:  INCREMENTS  IN  90.0  DEGREES  ,14/ 

720*  *  20HSL I P  ANGLc  GCC 3  FR0N,F6.l,3H  TC,F6.l,17H  IN  I  NCR E Me NT  S  CF, 
9FN#l,8H  DF  G.  / 

92C»x,2OH0IP  CCtC  FROM ,  F6»  1 , 3H  TC,F<.l,l7H  IN  INCREMENTS  CF, 

afo.i,8h  arc.  / 

B20 X  , 20H$T®  IKE  CrTS  FRCP ,  F6.  I  ,2t-  TC,F«.l,)7H  IN  INCREMENTS  CF, 

C  FA . 1 , 8H  OEG.  ) 
f 

IF  (RcGICN.EG.B4.ANK4)  NRITFl6vl3i 
1)  QF'-!NAT| 

I20X,39H<  TFFSE  LIMPS  INCLUDE  ALL  QF  IFN  TATICNS) ) 

If IOCGICN.NF. BLANK* )  «F!TE<4,|4| 

IN  OF^e-ATI 

120 X , 69m*** A  RESTRICTED  RlOMN  OF  SEARCH  IN  OR IENTAT ICN  SPACE  IS  RE 
2UU-5 TEC***/ 

320X.49HITHE  LIMITS  rr  ThC  SEARCH  RECICN  ARE  SHCMN  APCVF)) 


0NR!TcC6, 131  F PFCTe,SFfC*F# BLANK  1 , Iff  NT l , I PRNT2 , ! PRNT 3 , I PRN Ta • 
IIP-NT5,IPLrTl,!0LCT<»IFL3T3f!PLCT4,I PLCT5 ,NVL ,N0EV3 , IDE V  3 

15  OFO-ma-I/ 

120X,48HpPFCTF...SCAtINC  FACTOR  FC*  PPFCT1  TO  BE  APPLIED/ 
220X.48HTC  ALL  LITTL'F-P  PHAScS  ,F7.2// 

320  X  t48H$PF  C  TF  •  *  •  SC  Al  ISC  cACTOR  FCP  SFFCU  TC  BE  APPLIEC/ 
420X.4BHTO  ALL  LITTLE. '-P  PHASES  ,F7.2,Al// 

S20X.17H1PRM1  ,2,3  •- ,«  •  ,  I  i  ,4 1 IH,  ,  1 1 1  , 

*5*,  17hIPl:TI,2.3,4P  .  ,II,4UH,,m/ 

T20X  •  33HNuMf»i  R  :f  VEC’CR  LENGTHS  INVl)  •  ,13/ 

B2C  X  •  ?-tmTM|«C  OUTPUT  DEVICE  IIP  USEO)  IS  NC.  ,  I  2,5X ,  BMDEV3  •  ,12) 

c 

MR  PE  <6 ,16)  VP  SURF, v' $LPF,*SURF,PSURF,VP«RCE,VSSRCE,»SFCE,PSRCE 

16  OFOFHATf/ 

11MK,«.0H*  p  «AVr  VtLCCITV  CF  I  SCI  1C  I  SURFACE  LAVER  ,F7.2, 

2d»*  KM/SEC/ 

31SX.30H*  S  «AVE  VFLCCITV  Or  (SCLICI  SURFACE  LAYER  ,c7.2, 

-.•JH  KM/ SEC/ 

520X,48HC0FGkSP^\riN:  F  TC  s  VELOCITY  ratio  • F  7 .2/ 

t20X  ,48HCCRDf  SPCN'C!  NG  FCtSSON*S  RATJC  ,F7.2// 

71HA.50F*  p  M  A  Vr  VFLrC  ITV  Cc  SCUPC*  LAYER  ,F?.2, 

8»h  km/se:/ 

910X.5OH*  s  *AVS  VELCCITY  CF  SOURCE  LAYER  ,F7.2, 

A8H  KH/SEC  t 

B2Ox,40HCOP3ESP:NCir.C  P  TO  s  velocity  ratio  ,f  7.2/ 

C2OX,48HC0F  Rl  SPCNCING  PCtSSCVS  RATIO  ,e7.2l 

c 

IF  |  INOANG.Fw.O)  *RMCU,17I  INOANG 

17  OEOPNATI/ 

120X,8HlN0ANG  « ,  1 2 , 3  ?F  -  P  AND  LPTLEP-P  TAKEOFF  ANGLES  HILL/ 

220X, 48H0F  *EAC  IN  CIRfCTLY  FOR  EACH  PHASE  PAIR  COEPTH  / 

320X , 48HANC  CISTANCt  MILL  NJT  BE  USED)  ) 

C 

I  F  (  I  NDANG.NE  .0  )  »»R  I  T  c  <E  ,  10  I  INOANG, CfcPTH 
10  ofonmati/ 

1 20X  , BHI NCANG  *,I2,20H  -  P  TAKEOFF  ANCLES  MILL  BE  CALCULATES/ 
220X,48HF»rM  INTERNAL  TABLES  USING  DEPTH  ANC  DISTANCE  / 

320X ,48MUNLC*  S  DISTANCE  IS  OUT  OF  RANGE  / 

42OX,48H0EPTm  Cc  lAF  Tf-CL AKE  /F6.1, 

58H  KM  » 

C 

IF  (  INCANG.NE. 0. AND. "FPTm.EO. 0.00)  NR  IT EU. HI 
19  ofofmati 

120X,A8HDEPTh  IS  2tPr  -  UNLESS  OISTANCE  IS  CUT  OF  RANGE  / 

220X.4BHP  T  AKe  OFF  ANGIES  AT  DEPTH  ■  33  KM  ARE  RE  AO  FACN  / 
320x,48HTAPLES  ANC  *!LL  BE  CORPECTEC  FOR  SOURCE  LAYER  / 

*201 • 40MVELCC I Ty  IVPSRCE)  ASSUMING  A  SLE-POHO  VELOCITY  / 
52OX,40HCF  E.l  KM/SfC  ) 

C 

I F ( I  SEA . E 0 .0 i  wR  I  Tf (6,20) 

2U  OF OPMATI/ 

I20X,48MS0URCE  IS  N^T  BENEATh  TmF  SEA  ) 

c 

I F  ( I  SEA  .NE  .01  «MTfUt21l  VSE  A,OSE  A  ,C  SUP  F 
21  OFO*MAT { / 

1 20 X, ASH SOURCE  IS  BENEATH  THE  SEA  / 

21  8X  *  50H*  ASSUMTO  P  *•  A  vC  VCLOC  t  TY  CF  5IA  LAYER  ,F10.S, 

38H  KM/SEC/ 

4 1 8X , 50H*  ASSUHCC  DENSITY  OF  SEA  LAYER  ,F10.5, 

50H  GN/CC  / 

610X,9OM*  DENSITY  C'  (SCLICI  SURFACE  LAVER  •MO.S, 

78H  GM/CC  ) 

FT 


no 


c 

If  t ANGPF  .F  C.  1. CO. ANC.INGPPF. EQ.  1.001  MR  I TF 1 6. 22 1 
22  0F0RMATI/ 

120X.54HTAKECFF  ANGIES  ARE  NOT  PERTURBEC  ISING  ANGPF  CR  ANGP®F> 

C 

IFUNCPF.NE.l.CO.CR.ANCPPF.KE.l.CCI  kRlTEU.231  ANGPF, ANGPPF 


23  OFORPATI/ 

120X.48HALL  f  TAKECFF  INGLES  ANC2CR  All  HIUEP-P  t 

220X|48HTAKFCFF  ANGLES  klLL  BE  PERTURBED  LSING  ANGPf  AND/ 
32DX,2<»HANGPPf  PfcSPECT  IVELV  (ANGPF  •  , 

4FA.2.14H  ARC  ANGPPF  *  ,F4.2t2Hl •/ 

520K i 4  0HT  HF  PRINTEC  TAKEOFF  ANGLE  VALLES  INCLUDE  THE  / 
62CX.48FEFF rCT  CF  THIS  FERTURBATtCK  I 

IFI  IcfTJ.Nr.OI  MR  I  TE  I  6 . 24  ) 

24  OFORMATI/ 

t20X,48H»*»HARNING**>  ALL  SURFACE  REFLECTION  / 

220X.48MCCEFFICIENTS  (PPFCT3  AND  SPEC  T3)  SET  TO  H.O.  / 
320X.4BHTHFV  PAY  INSTEAD  BE  I NCCRPGRA  TED  INTO  PPFCU  ANC/ 
420X.48HSPFCT1  (OR  PPFCTF  ANO  SPFCTFI  IF  REGUIREO  I 

MRlTrtt,2S| 

25  OFORPATI// 


Uex.SDH*  UStC  CMLV  FCR  CALCULATING  EPERGENT  ANGLES  ANO  / 
220K.4SH«EFlFCT!CN  A  REFRACTION  COEFFICIENTS  AT  SEA  BED  / 

320«,4d«AN0/CR  cR£f  surface  as  recuired  i 

c 

IFI  IC1EV3.LE.G)  GO  TC  2 ( 

c 

PP1TE INCEV3.26I  NVL.CINC.PSn.PSIN.CELTAl.CELTANtSTRIKl.STRtKN 
26  OFOPpATUThNUPB'F  OF  VECTOR  LENGTHS  (NVLI  •  .I3.35H,  SEARCH  ANGLE 
(INCREMCNT  I01NCI  *  ,FA.1,5H  DEG./ltHSLTF  ANGLE  PROP  ,F4.0,*H  TC  . 
2F4.0.12H,  CIP  F«CP  » F  4 .0 1 4H  TO  |F4.0>16H.  STRIKE  FRCP  ,F4.0. 

34H  TO  .F4.0I 

ppf i tr(ucfv2. ;  i  nop,  c  1  nc.  oe  pth,  angpf,  angppf,inoang,ipfnu,iprnt2, 
IIPRN'3.  IP«NT-..lPRNT5,IPLaTl,lPLCT2,IPL0T3.IPLCT4,IPLCTS,ICtV3, 

2NVL  tNDF  V  3 • I S( A,VPSU«F,CSURF,VPSRCE,VSSLPF,VSSRCE.PPFCTF,SPFCTF, 
3IFCT  3*F  CG  ICN 

0IFIRFGICN.NE.BLANK4)  .R I TF IN0FV3 ,4 >  P S 1 1 . PS  I N, CELT A1 .DEL T AN, 
1STPIKI.STRIKN 

WRITP(NCEV’.2TI  NCCNPR.NCOPB 

2  T  OFOR  PAT (- XhND .  CF  ORIENTATIONS  IN  SEARCH  -,I6,35H,  tctal  NC.  CF  CRT 
INS.  (ALL  SPACL)  *.181 
C 

28  00  30  1*1. NPK 

00  30  JM.KCR 
00  30  K*1,NSR 
F( I.J.k )>VVL ( l.NVLPI I 
30  CONTI  MU,' 

C 

C  ASSIGN  SINCLF  PRECISICN  VARIABLES  FCR  PLCTv 
C 

SPINC  *CINf 
SCINC*C INC 
SS INC*0 INC 

sPsn*Rsn 

SO£in*OtLTAl 

SSt»K1*STr|k1 

SPSIN*PSIN 

SCFLTN=CLLT«N 
SSTRKN* jTRIKN 

c 

C  GENERATF  sin:  ANC  COSINE  TABLES 

c 

OPINC*OINC*C»I 1 
SINTAS(1I*CSINI0PINCI 
COSTABI 1 I *CC  QS I 0P1NC ) 

OC  40  I*2.NTA8LE 

S INTAR l  I l-SINTABI l-ll«COSTAb( 1 1 ICCSTAB I  I- 1 1 • SI NTAB ( 11 
COSTABI I » -COSTABI l-l I fCOSTAB 1 1 1- SINT AB I  I- 1 1 *S I NTAB 1 1 » 

40  CONTlNUt 
C 

iaes*o 

c 

C  -  'C  for  fach  phase  pair  CARO/INPLT-RFSULT  CI»C 

C 

00  BOO  IORM.NCP 

OR F ADI  5. N l )  St‘NAP,A2I iC I  ST , ALPHA ,GAP PA . S IGNP . PA2 1 N, PA l IN.SIGNPF . 
IPPA2 IN.PPA1 IN. RPFCTI . SFFCT1 .PHASES 
51  FORPATI A9.F5.0.3F5.1,i(Al.2FlC.5l,2F4.2,A2J 
C 

IFISTANAP.NF.HLANKEI  CC  TC  40 

c 

C  1 1 1 1 T 1 1 1 1 1  FRCCFSS  INPLT-RESLLT  1 1 1 1 1 1 1 1 1 1 

C 

PRITElo.lCll  UL INE 111 , ICP.NCR.UL INE .ul INf 1 1 1 
101  FORMAT  I 1H l . AB .4HCARC  NC .  ,I3»4H  OF  , 1 3 . I CA 9, 14H( INPLI-PESULT I , AB I 
C 

c  sr t  noev  frcp  phases 

c 

TEF SL-NOEVl II  I 
UNITSL-NCEVLI2I 
1*1 

IF(T£NS.FG.eiANK4»  CC  TO  112 
00  111  1*1.10 

|F|TCNS.K.OIGlTllll  (C  TO  112 

111  CONTINUE 
GO  TC  114 

112  00  113  NOEVltlO 
IFIUNlTS.FC.r|GITINCfV)l  CC  TO  116 

113  CONTINUE 

C  M 


II*  «*!TFI6'llM  PhASCS 

i*4  uFO«**AT|//2v*.*»OHlNPLT-|ieSULT  OElETIC  -  $ffCrf|IO  DEVICE  NUPBfN  IS 
1.42.2AH  MHICt*  IS  Nri  IK  IN  T  t  GE* ) 

GO  TO  49S 
C 

i  16  40EV-II-1IM0*NDEV-1 
T!U6Mftl«FM*$tS 
C 

c  RE*r  DATA  is 

c 

OREADINDEV, 12  1 >  TC 4  a ( l . T  I TL cO  , NVLO . 0 1 NCO  ,  PS  1 10 , PS  I NC , CEl T 10 , Oft TNC, 

istpmo.stpknp 

121  OFOfiMATI IOA6/IOA8/33*, I  2 . 35  * , FA. 1 / U X .F A . 0 • AX ,F4 .0 . 12 X • F4 .0 »4X  .  FA .0 
1.16X*F4.0.4X.F4.0) 

C 

c  PROTFCTION  FTC. 

C 

O'*  122  1*1*10 

IMTCAflCCC  II  .Nf.TCARCI  I  »|  GJ  TO  US 

122  COKTINuF 

c 

IFINVLD.Nfc.NVD  GC  TC  125 
IF (C1NCC.NE.0INC  J  GC  IC  125 
IMPSIlC.Nf  .PS11I  GC  TC  124 
fPIPSIND.N*:  .PSINI  GC  TC  125 
lMOFfcTlC.Xf  .OttTAl)  CC  TC  125 
1FI0EL~N0.NI .JElTAN)  GC  TO  125 
IMSTPKIC.NF  .STRIK1I  CC  TO  124 
I c  I STPknC.NF .Stp I k N I  CC  TC  125 
G*>  to  no 
C 

125  MRlTMo.Ut) 

126  0F0RP4TI //2GX 

1*  INPUT-RFSULI  ''ELCTEC  -  EITHER  INPuT-AESLlT  BEGINS  NITH  INCORRECT 
2m£  AOf 0  C ARC,  0*  SEARCH  ANGLE  INC  REPENT • /20X . *0«  SEARCH  REGION  CP  N 
2JMPF0  pc  VFCTCL  LENCTFS  IS  CIP*EAENT  FRCP  ThAT  QF  ThF  CURRENT  CATA 
3dLCCK*/> 

127  REACINCfcV,  12E I  fNCC 
1 2d  FJRMAT1A4I 

mENOG.NE  .FNOl  GC  TC  127 
»P lTEC6, 12S)  NCEV 

129  of  )««n /2o». •  rrvicr  *.12*'  has  been  ..cunc  cn  tc  eno  cf  this  infut- 
l«r  SUl Tf  1 

C.r  t  •  59s 

C 

130  T|T|>EJIA|«TI~ur(N) 

TITLEJ(5|«TIrLf  n( 10  I 

OR  *  AOINOtV.  i )  1  GUPPY  . “UPPY.DF  PTHO , ANGPFO , ANPPFO  .  INONGC,  IDUPPV. 

1  I  00*«Y  ,  I  DUPMY  t  1  DU«MV  ,  I  C  UNMV  ,  I  OUH*Y  .  I  CL  *P>  •  I  OUP*Y  ,  I  OUPNY  ,  lOUPPY  , 

2  If  -JHHV.  IOufpt,  JOUP^Y  ,  lSFAC,VPS«FC,CSLRFC,VPSRCO,  VSSPFO.VSSACC. 
3PPcCc0»SPFCFC  « IfCT  3C ♦ RE  GNC 

OIF (REGNC.KF .PI  ANK4) 

L  RF  AC  I NGr  V ,  4  | 

RT  at* (  ajCE  V *  *  7  ) 

x-lT£(6il31l  (ULlNrSCI  ),I-1,2I*TCARCC,T!TLE0,IULINE (!) .1-1,101 

131  OFORMAT f /20X.23hSU-na0V  OF  I NPfT- RESULT /20X , 2A6 , 7H ■  -•-•//20X. 10AB 

1//20X, 10AB/2CX,  10Ae//2Cx, 83HSEARCH  INCREPENT,  SEARCH  REGICK  ANC  NC 
2.  .F  VTCTOF  L  cNCT^S  AS  FOR  PRFS6NT  CATA  eiCC*) 

HP  I  TF ( 6  »  1  5  I  FPSCFC ,SFfCFO 
R  ^ JR FQ" VPSC F  •  / VSSFFC 
PSRCFO-VPSPCC/VSSFCr 

OPSURC0-I VPSRFC-VPSRfc  C-2,OO*VSSRF0PYSSRFCI2«2.CO*I VPSRFC*YPSRFC- 
1VSSHF0*VSS«FP) ) 

OPSRCfcO-C  VPS«»CC-VPSPCC-2.D0*VSSRC0*4SSRCC»/(2.00P<  VPSRCO*VPSRCO- 

ivssoco*vssfi:r')  i 

OwNI TEf 6,161  VPSRFO,\c  SPFC,RSU«pC,PSURFO.NPS*CO,V4SRCr,RSRCCC. 
lPS®CfO 

1 f (  1N0NCC. f C . C I  *F(TE(<.17I  1N0NC0 
I F  I  *  NONC-C  *NE  *0 1  MR  I T? ( 6 , 1 8 )  I NONGO  .CE  PTHC 
in INONCO.Nt .O.ANO.CEPTm, EO. 0.001  mRITE(6«1*> 

IF (  ISfcAC.Fc  .0 »  pt  J  Tf u ,201 

IM  ISCAD.NE.r  |  «tITM6*21)  VSE4  ,OSE A .OSURFO 
IF  I ANGPFO.Fw.  1.00 .ANC .AhPPFC.EQ. l.COI  kBfTE 16*22  I 
I  MANF.JFO.NE.l.CO.C  c  .*NPPFC  .NC.I.90J  PRITE<6.23I  ANGPFO. ANfPFO 
IP  €  f  Pf  *10. NF  .0!  MRITEU.24) 

-RITE!  ,241 
C 

C  RE  AC  IN  ANC  PRINT  SLPPARV  OF  CONST  I  KENT  PHASE  PAIRS 

C 

4ft (Tf (6, 1 J<  J  (Ji  t  A  r  S  (  11.1-1*41 

132  OFOFHATI  1H1 1 14X,  I^HSlPPARY  QF  CONSTITUENT  PHASE  PAIRS/ 

1  l  4  X  ,  4A  8  •  2H-  •  /  / 


2*  SN  AD  TAC  7AL  PR  FP  PN  PP  PP  P 

3H  PF  SF  PHASr  I  PHASE  2  SLMMARY  CF  •/ 

4»  TA  I  AR  F  ANI  HC  H|  HA  HC  Hi  H 

5A  PA  PA  RESULTS  •/ 

6*  AM  IS  RC  KGT  AL  AN  AX  Al  AN  A 

6*  re  C  «T  T  ft|>  etp  SA  S  S  SA  s  s 

9  CT  CT  NC.  OF  FRACTION  SltNIFI-*/ 

A*  |  »J  A  C!  OE-  ER  CA  EA  £•  EA  E 

BA  TC  TO  CCNPAT-  CF  ORTNS  CANCE  •/ 

C*  0  TNFFP1P  M  IP 

OP  IR  10  ISLE  INCONP-  (IN  REAL*/ 

*  H  c  p  Fp  It  IP  IP  2T  2P  2 

FP  CRTNS.  atible  spacei  •/ 

c  1  F  Y  Y  •/) 


1 Al  ORE  AC ( NOE  V. 51 )  S~ANAP.II! .0 l ST ,ALPH A*CRPPA . S IGNP . PA 2 1 N*PA | IN. 
1SIGNPP.PPA2I  n.ppai  t*,PPPCM.SPFCTl  .PHASES 
IF <STAN«P.£G.PLANRA)  CC  TO  150 
IONS-ICRSM 

N4 


RFA04NDFV.H2)  NTPUE  *  5  » SREAL 
142  FOP  HAT  426*. 16,  3  1  X  ,  F  11  .  5  /  6SX  ,  F  i  i  .  S  J 

C 

K*1 

I F | PhAS  cS.cC.SP>  A-? 

IF(PhA$FS.EQ.STR$TP)  M3 
IF  IPHASCS.FC.Pn  K-4 

i f ( phases •  f c • s  tre i  ms 

CWP  ITt(t ,  1-31  I  3BS*  tUlINESl  1 1  I  1-1.2), $TANA».AZ l ,OIST. ALPHA .GAPMA. 
iSIuNP,PA2IK,PAUN,SIGNf  P.PPA2IN.PPA1IN  .PFFCTl.SPFCTl  , 

2ITITLPHI  j.x  ) . J-1.5)  .NTFuE.S. SPFAL 
14  3  OFOPHAT(/l5k,UHPHASF  PAIR  NO.  ,  l  > /I 5 X  ,  2 A  8 . 3H-- - / /l X . A8. F 5 .0 , 

13*4. i,2< A l, 2F 10.4  I, ZF4.2.5A4, I 7 . 2 < 1 X , F 1) . 9 1 1 

OIF  4 I06V2.GT.0 \  NR  I Tt 4NCEV3 .4  l )  STANAP ,  A  Z  I  .  D  I  ST « ALPHA  .GAHHA  .  S IGNP « 
IPA2IN.PA1 |N,SIGNPP,f PAilN, PPAlIN.PPFCTi.SPFCTl ,PHAS€S 
IF(  IDCVi.GT.C)  WP  ITE4NCEV3.506I  NT«UE . S , SREAL 
GO  TO  1M 
C 

C  READ  If.  CPIENTATICN  ARRAY  FRC*  1NPLT-P  F  SlL  T  ANC  J  NTF  CP ATE  bITH 

C  ‘JMENTaMCK  AM  AY  Of  IMS  DATA  BLGC* 

C 

150  RE  AC  I  NOT  V  » 15  1)  NOBSC 

151  FORNAM  *CX,  131 
RCACtNCEVi  142 )  NTPUE .S. SREAL 
RFACINCEv. If M  CNCr.NTCTD 

155  FORHATfAb, 12X, I7//I 
lF4FN(V.Nt  .ENC)  GC  TC  15? 

N«rrr(6,  i«ei  \cbsc 

156  OFOPHAT  4 /20», '  NO  CPIFMATION  ARRAY  -  INPLT  RESULT  OELETEC*/ 
I20XM1.C.  PREVIOUS  #  •  I  3  t  *  PHASE  PAIRS  OEIETEOI  •  I 

I  OttS*  1  r*S-NC6S'' 

GO  TO 
C 

157  WRITEtc.  161 1  lulINCS 41) ,1-1,5) 

16 1  OFORhaTC  iMl , 14*, 42HAF SLITS  CORRE SFCNC I NG  TC  THIS  INPUT-RESULT/ 
1141,54a, 2b»* ) 

IF  4  IPRNTJ.SC.O)  GC  TC  165 
HP  |T,'(o«  1631  tUL  INC.(  I  )  ,  1-J  ,  7) 

163  JJFORMA?  I /20<,60mPO  lNTCl  t  OF  CCMPAT  I  BLl  ANC  PAP  T  l  ALL  Y  COHPAT  I9LC  ORI 

IcNTAT|.'\S/20*»  7A0,4i - I 

HP !TEI o, It*  ) 

164  OF OR  HAT ( / IX, 30HSA  •  SUF  ANGLC  IN  FAULT  PLANE ,4  X  .  24t»0  IP  •  CIP  CF  FA 
loir  PLANE, AX. 27HSTK  *  STRIKE  OF  FAULT  PL A*E , 4X , 35HN  -  NO.  OF  JNCO* 
2PATIBL'  FFASC  PA[RS//eCl6h  SA  CIP  $tK  N/ ) / ) 

on  to  itT 

165  w* ITT  4  e. It  e )  (UL INF  4  I ) • I *1 , 7) 

166  0FUPHAT4 /20X,  /tHPR INtCLT  OF  CCHPAT I  BLC  ANC  PARTIALLY  COHPAT 1 5LE  CPI 

4  €  N  7  A  r  f  iSj  -  Nt:  r  FFULSSTFO/ 20  X, TAB,  4H - 1 

167  I F (  I  PLOT  1 • : w .0 )  GC  T C  160 

OCALL  TUPV1T I Tlt,T! TIE J,3H$LIP  AKG.6F  DIP.Bh  STR  IkE •  *°S I  1 . 

ispinc ,sr jis.sniLTi .soinc.sdfltn.fstrxi.ssinc.sstrkn, n 

CALL  SFTl°1 (NVl  ) 

c 

168  00  1*9  I-l.NVL 

169  NTRUr  S  (  I  hC 
I c  I LL «  l 
FOFAL=O.CJ 
ICAR?»J 

NCAF0=(NT0Tr*^)/5 

I  I  -0 
C 

00  I9r  IPSI-fPl, IPN 
00  190  1?FL7A= IU1, ION 
DC  1 90  I^TQIk- IS1  ,  ISN 

I-  IPS!-  I  P  l  N | 

J-lCCl  T  A-  I  C 1H 1 
X- I STR  IK-  I  $  l*  1 

spsi*pflcat<  i ps !)•*.' in: 

SCjELTMCFlCATI  10FLTA  IK  INC 
SSTRIk-Ofl AT  41STP \k |«C INC 
1 1 1 1«  I  f  I  x 4  S  p  5 1  *0.  4  ) 

JJJl-I F  ; X ( SrFLTA»0.e  I 
KKKI-IF  .’XISSTP  IK  *0.*) 

C 

JFItl.N'.O)  GC  TC  \12 

IF  4  ICA^O.rC.NCARCI  CC  10  180 

OP f AC4Nrev,  l  70)  4  I IIC4 121 ,JJJ0I12 ),KKKC( 1 2 ) , 1 VLNO 4  1 2 ) . I 2» 1 . 5) . 

1  ICAPP^ 

170  FOh**AT4«4  1*.  13, lx,  I  ?,IX,  12*1  3).  15 1 

!CAon«iCA;m 

IF  4  ICARCT  .KE.ICARC)  w« t T E 4 6 , L 7 1 1  ICARCC.ICAAC 

171  0FPRMAT4 / 20X, ‘WARNING  -  ERROR  IN  INPUT  CF  ORIENTATION  ARRAY  -  CARD 
1  * • I  5. •  IS  bhfRF  CARC  • . I  5, *  SHOULC  BE*/) 

II- 11*1 
C 

173  IF  (KKbl  .KKK04  111  I  CC  TC  180 

iFijjji  ,n‘.jjjo<  iii)  cc  tq  no 
i fi  1 1 1  i  •  n*  .i  i  ici  m  i  cc  tc  ho 
c 

C  OP  IFN*  AM  “K  IS  ON  CARC 

IVLH-IVLN^U  I  ) 

NTRUFSI  NVL  -  IYIH)-NT6U!  INVl-  IVLH)«  | 

IF I JPRNT1.FC.0)  GC  TC  1 ▼ T 

II  II  IF  UL  1-1  I  I  l 
JJJ||FILLI*JJJ1 
KM  |  IF  ILL)  *  b  Ml  1 
IVLM  If  ILL  I-  :VLH 
IFIIF1LL-4)  17^.174.174 

176  wMTF(f-.l7M  I  II  111  M.vJJl!  3).KXXfI3).lVLN4|  31  ,13-1.8) 

IF  ILL  -  l 
GC  TO  17T 
1  *4  IF  ILL*  I  Ml  LM 


l?6  F>'OMAT((M  lx,  litlK,  I  ,lt,n,n,|H/)| 

WT  !M  lPLCM.Kr.fl)  CALL  F  ICTVlt  $P$l  ,  SCEl  IA  •  5SIR  lfc  ,NVl-  I  VI  P| 

Il-UM 

IMU.liT.S)  11. 0 
04  T0  1  8  1 

c 

C  lMfcNTAMC*  IS  NCT  cs  CA*\C 

184)  IVLH*NVi 

IUN03Sp.LT.NvW  iVU-NOdS? 

131  j,M 

1‘  IF  la  .1  C«V VlR (  m  Ct  tc  wo 
L>  '  18  2  11-l.NVL 
I VL«KVL  11*1 

1  M  F1F  .*  C.wtiMlVL  *  1)  I  G'l  TC  183 
lbj  CuMlNUF 
183  tVl-lVl-lVl* 

1FUVI.LT.C1  IVL-0 
Ft  1  , J.K  1-VVl (1  WVlU  > 
wo  CONTINU.- 

c 

C  FW  SH  IF  ILL  HUH*- 

i1  ui*ir  m-i 

OlMTFIU.N.Cl  U!M!3>.JJJ<m.KKMl3>.tVlM13J. 

U'M.IMU) 

c 

Rf  AriNDf  V,  1  ?*|  fM'P 

i ►  i tNor.sr ,f \r ) 

ISS  OFilFHATI  / JOt.'hACMNC  -  ERROR  IN  INPUT  CF  C® I  ENT  AT  I CN  APRAV  -  APR  AY 

l  onf s  Nf  iehnatf  k i t h  cart*) 

c 

IHin.’M.M  .01  «Rl?F(t  .  72*1  1  UL  I NE  (11  . 1  - 1  . 3  I 
1  c  (  !°t  'TN.NF.Ol  CALL  UTAlS 

1M  IPl^TK.rc.OI  l»RI  TE  U«  72*  I  (UlINfl  1  1  .1  -l.JI 

c  $U8«AP>  V  R  {  SuL T 1  Ftc  JH\<  INPlT-RESLIT 

NUTflb.MM  (  UN  UJ.I-l.2l 

lrt  to,  l«w  STOlI  SINVll  .NCONB.NCBSC 

111  OF  '‘■••ATI  /lJ|v|8.a  MENTATIONS  CW  CF  ThF  •,t8,#  ARE  CC*FATieif  ml 
IT*.  AU  T  m  *  r.A^f  PAIRS  t  N  THIS  t  N  FUT  -  RE  SlA  T  •  ) 

l«2  OFOa-AU  trxfl8.»  15M4T1CNS  CW  CF  THE  •,I9,*  APE  |NCC*»PATWl? 

with  •  *»,*  if  ’nt  *,:?.•  phase  pairs  in  this  input-rfsllt* j 

i»  {  N V l  .  r  c.  I  1  o*  T  b* 

0-  l«M  I  -  .  .  N  v  i 

1  f  U  *0*  *NC t: <•  »  GO  ?•*  IS* 

: vi -nvl - i ♦ i 
i  **  i  ■  i- 1 

w«  rfi;. ,  w. »  » •►ui  >•  ;vi  i  .ncorr.  iMi.Acasr 

1*1  )  l  IN’  |*|U( 

W*  IMSfi.r  S.^.t’lANMl  hR  ITf  (6.  **04) 

IF  I  RfGICN.Nt  .Bi  ANk4  J  kPlTUA.NONt  NCCP*P,NCC*R 

Gi'  V  *ccc 

l  1 1 1 1  (i : :  1 1  iimiiiii 


F  1-..I .JCC  PROCESS  Nth  PF-ASE  PAIR  1111111111 

*0  l  •*  S  ■  W *.  $  M 

1 NPP« 1 

I  *■  I  PHASf  S  .  •  C.PP)  INPP-  t 

.  ►  t  pna  if  s.f  c.s*' »  in  cp-  ; 

IMPKASiS/u^^M  1  N  C  P  •  1 

iMi$u.;C.oi  i. :  T  si 
I  F  (  PHASf  S  .  >  C  I  INTP-H 

If ( PHASnS.rw.STBf  I  jncp-* 

L*'.  •  T  •  *  *J.* 

*»  IF  (  PHAi'-S.fC.P^  I  INCP-l 

|F IPHASrS.tO.STSE)  l NOP- » 

c 

12  WF:Tr(;)fg3|  L>  W  NE  (  1  >  W  C  P  •  NCP  •  UL  I  NE 

H  Ofc->  VAT(  l«l.A^f  ‘iMCAPC  SC.  ftJ.AH  »:F  U3.SA8.22h - (Nf  h  PHASE  PA| 

1R 1 .  AP/ ) 

Tn  t  eOl  .MHT.MHl.t  C  1  .600  1  ,  |NDP 

c 

L  pp  PP  PP  P»  F*.  4lTTCtP-P  SfCTICN  BEGINS  PP  PP  PP  FP 


S4*l  1M  I  NOP  .f  4  .1  i  -L  T  If.’ 

T  1  TU  I  I  *  l-F  l  I  ’PP 

IMISFA.FC.O)  xKI'llNflJl  1C3S.STANAP.  I  CL  1  NF  S  l  I  I  .1  -  1  »S| 
Sio  'B  HAT  I  l  S  X  ,  1  S  H*' ►’A  SF  P  A  1  r  Nl.  ,  U  •  2*  X  ,  8  H  S  T  A  T  l  CN  .AS. 

i4s».  n.  PnASfs  p  *  i;ttlep-*ms cue  fpee  turfacpi/ 

4  1  N  X  ,  2  A  A  .  2  *■  *  •  .  2*  x  .  ?AF  .*F---r  -  •  I 

iFUStA.Nr.oi  n*- i  Tr  i  ‘ .  P6i  >  ues.stANA*,iuiNtsm.i«i.R» 

Ibl  OF  TRHA’ US*  .  1  •  HP»  A 'r  PAIR  NC».  ,  13  •  2*  *  .  t  N  S  T  A  ’  1CN  .AS. 

|XAH  Fl)R  PMASfS  P  4  l  !  TTCtP-Pi  St  A  PECU 
2  l  *  X  ,  2  A  R  ,  2  *•  •  •  .  '  rn  X  *  6  A  f  *  .  H  ■  •  I 

i»r  *  »3  8  &  * 

*N2 

rtf  1  TE  l.N.Pr  M  r  ’pv  ,  T  AN  ah.  Cut  INCS1  I  1  .  I  •  1*8 1 

364  OF  rn  “A'  UN*  ,  1  *  hP*A  Sf  -UR  NC.  ,  l  !  .  2*  *  .  t  N  S  T  A  T  1  ON  .AS. 

UPf  Ft'ih  rMV  v  P  \  itTUEP-PtSFA  SUBFACFI/ 

.*  I  s  X  f  2  A  4  ,  **•  •  •  A  l  ,t  ►••••••  | 


C  PFCTFCMCN  FTC. 

C 

064  A Z  =  AZ! 

OIF (AZ.NF .0.00  I  A/* A/ I-CMCDi AZ  1  ♦DI NC /«  .CO  »C  INC  I  *DS  I GM  C  I  NC/2.30  .  AZ  I  ♦ 
10INC/2.C0I 
C 

802  IF(AZiaO3,eG2.0O4 
003  4Z=AZ*3O.C0 

GO  TO  002 
C 

004  IMAZ-3t0.CC>H06.6C6, ECS 

805  AZ=AZ-2fc0.C0 
GO  TC  BOA 

806  IAZ*AZ/C ISC ♦0*500 
C 

IF(PEGICN.FC.eiAr*K4)  CC  TC  BS2 

IE1-IA7-ISN 

r£N*iAz-:si 

IFI  IEN.GT.O)  CC  TC  F  c.  I 

!  E  N  =  I F  N  ♦  \  $ 

X  * I« ! F 1 ♦NS 

891  IM  iri.G^.O*  GC  TC  *92 
IfelZMf  1«NS 

I  £  1  =  1 
IEN2=N3 
C 

892  IF  ICIST.LT. PIS’-MN. CP.:  1ST. GT.DISTPX)  GC  TC  908 
OISTP*niST*pP! i 

A1«C0EFI l 
A2  *COc" ( l • ICuP) 

00  d3?  IM.NCtG 

Ai*Al-Cl  STc4c'TcF(  J«  1 ,  ICE  PH 1 1 

A2=A2*riST^*CCFF(I*lflCcP) 

eer  ccktinue 

4LPHA*AIMf  TPTH-CTPi  ICEPMIM*(A2-A1I/(CFF<  ICEP)-DFP<  IDEPMIM 

if iotP"h.Nr.r.co)  gc  tc  tae 

PAC  =  r'SIN(  A<*CPI  I  )*\»PSFCF/VPO 
IF(PAO.CT.1.CO»  PAC*l.CO 
ALPHA*  cab  s  IMP  AC  I  /CP  I  i 

c 

889  IFI CAMMA .E  C .0 .CO )  CAMMA*ALPMA 
PAO*rSIN(  ALPHA*  CPI  1MANGPF 
IFIPAC.C.T.  l.CO>  PA*.*]. CO 

alpha=1:apsimpaci/cp  ii 
PAU*PSr.(GAPPA»CPIU  *IKGPPF 
/F(PAy.CT. I .CO)  PA0*1.£J 
GAPMA*CAP<  IMPACi/CPI  l 
C 

8tTA«CAFS!MCSIMGA*pa*0Pm/RSRC61/CPIl 
GAMMA  1  =  0 <!'!(  SIM  GAMM  A*DP I  I  )*V«AT2  I 
a£TAl*rA«SiMCC!NIPTTA»nPI  1)  *VRAT2) 

c 

IF(PPFCTl.eC.C.OC)  FPKU-L.OO 
IF(  SPFC  TU‘w.O. CO)  $PKTl»1.00 

c 

IF<  IeCT3#FC.C )  CC  TC  0TO 
PPFCT  3= 1 • CC 

GC  TC  972 

C 

070  IFUNDP.U.A)  GC  TC  ill 
C 

IF (  ISCA.KF  .0)  GC  TC  i il 
C  LIT^LFP-PJ  SOL  If  F°cE  SLPFACE) 

0PP*C^3=(  I  .CO*  C  SIM  ?.CO*GAMMA  W*0SIMZ.CC*8ETA1  ) 
i-BSPS*icc:s(*.co*fcFTAn*i.oo)  i/ 

2  (  ?.C0*CSIM  Z.C0*GAMMA1)*C$IMZ.C0*BFTA1  ) 

3»F  SB  S*(OCC  Si  a.  00  •eETAl  I  *1.00)  ) 

GO  TO  P73 

c 

C  L  ITTLEP-P I Sc A  P;C) 

871  OPPFC^3=|PS^S*DCOS(2.CC*OETAl )* ( V«ATl*tR ATI *OCCS< GA*MA1 l-CCCS ( 2 .00* 
IdFTAll  *0CC5(CAF  SINi  VBATl*OSINiGAPPAl  MM  *DS  I  N(  2 .00«GAMHA  M  •  ( OS  I N  t  2 
2.00*BF'AU*rCCSICAfi<  IN(  VAATI*DSIN«GAMMA1  )  )  MRSuPF*VRATl*CRATl*r$lN 
3IBFTA1M3/ 

4  (fiSFS*CCCS<2.CO*0LTAl  )  •  I VRAT l*C R A T 1 *CCOS I G4MM A 1 MCCG$<  < .CO* 
5BFTAl)*CCCS(0AySIMVPAT  l*DS  t  M  GAMMA  M  )  )  )  *r  SI  N  (  2  .  DO*G  AMKA  M  •  <  CS !  M  2 
6. 00*  BFT  A 1  |*CCOSCOiF  SIM  VR  AT  1  *DS !  N  ( G  ANN  A  1)  )  )  ♦RSuRF  *  VP  AT  l*C*  AT  l  *C  S  IN 
7 1  Be  TAM  M 

GO  TO  e  7  3 

c 

C  LlTTLFP-PiSEA  SURFACE) 

872  OPPFrT3*(2.CO*CCCS(GA>'PAl)*OC3S(2.CO*eE1AM*(CSlNi2.CO*GAPPAl  )*CS  IN 
U2.C0*PI  TA1  )  ♦FSF$*0CCS<?.D0*aET41  MCCOSI  2.C0*BETA1)  I *2 .00* OS  IN ( 2 . ' 

:o*gamhai  i*cms<  2.c(»*esm  )•  ksurf*cs  ik  ibftai  »*oc3$(2.oo*eeTAU-ccc 
3S(  GAMMA  M*C  SIM  2. CC*  BET  AM  )  1/ 

41 1  VRAT1*:FATI*CC0S(  CAP*AM*OCUSi2.0O*eETAM*OCOS(OARSIN(  y«A’l*CS  IN 

5  (GAMMA  1  )  )  )  )•(  CSlNi  2. CO* GAMMA  L ) • 0 S IM 2 . CO*BE T A1 ) »R SR S *OCC$< 2. CO* *FT 
6A1  )*OCnSU.OO«bE  TAJ  )  )  ♦  vR  AT  l  •  OR  A  Tl*  CS  t  K  i  2  .0P*GANMA  M  •  I R  SURF  #0S  I M  *F 
7TAU*0C“S(  2.rr*9£TAl  )-CC0SCG*hmam*C5  !S(  2.C0*ftFTAM  )  ) 

PPFCT3—  PPfCTi 
OPPrCT3*pPFC73* 

1RSF  S«OCrSUAF  SI7i(VRAT1*0SIN(GANNAMI  )*OCCSI2.00*BETAM*2.00/ 

21  OS  INI  2.00*GA*ma  M*|RSLoF*CSlN(B6TAlMCSlN(2.00*ReTAM*0CCS(CARStN 
3(  VP  ATI  *CS1M  GAMMA  1  »  »  )/(VRAT|*DRATM  )*RSRS*DCOS(  ?.  00* BETA  l  |*(  OCCS  (G 
4AMmAM*CC;:SC  2  .C0*BETA1  )*OCOS(CARSIM  V«AT1*CS!N (GAMMA U  M/(VRATl*C» 
5AMMI 
C 

873  PPFC  T*pPFr  Tl*pf»FC’F*PPFCT3 
C 

ISGNP-0 

IFISIGNP.FC.PLUS)  I SG4F  * l 

b% 


IFISIGKP.Et. MINUS)  ISCAP—I 

c 

ISGNPP-0 

If ISIGNPP.EC.PLUS)  ISGAPP*1 
IFISIGNPP.et. MINUS)  1 5CNPP»-1 
C 

PA1-OABSIPAI1N) 

PA2>DABSIPA21NI 
PP A l»OABSI T  PA I INI 
PPA2>DA8$ltPA2IN> 

c 

If <P4l-PA2)811. 808.(12 
408  MR'.Tnfe.BOS) 

809  0F0RMATI//20X, "PHASE  PAIR  DELETED  -  P  CD  MTUEP-P  APPLITUDE  RANGE 
l MAS  ZERC  MIOTH* l 
CO  TO  599 
C 

811  PAQ-PAl 
PA1.PA2 
PA2-PAC 

812  If  <PPAl-PPA2)B13,e0e,(  14 

813  PAO-PPAl 
PPAI.PPA2 
PPA2.PAC 

C 

81A  NO0EP*0 

nocepp-o 

If IPA2.GT. SMALL)  GO  TC  813 
NOCEP-1 

If (ISGNP.Et.OI  PA2— PAl 
815  If (PPA2.GT. SMALL)  GC  1C  819 
If (N3DCP.Et.OI  GO  TC  CIS 
MRITEI6.81T) 

817  Of OR MAT I//2CX.*  PHASE  PAIR  DELETED  -  P  AND  LtTTLEP-P  AMPLITUDE  RANGE 
IS  both  SPAN  CP  80UNO  ZERO') 

GO  TO  599 
C 

818  NODEPP-1 

If  I ISGNPP.EC.O)  PPA2--APAI 
C 

C  CALCULATE  RATIO  RANGE! 

C 

819  If (NOOFP.EC.l I  GO  TC  (20 
C 

C  P  IS  MOT  NCCAL  -  LlTllfP-P/P  IS  LSEC 

r 

RATl-PPAl/fAl 

RAT2>PP41/PA2 

HAT3-PPA2/PA1 

RATA«PPA2/PA2 

CO  TO  821 
C 

C  P  IS  NODAL  -  SHALL  LSE  P/IITTLEP-P 
C 

820  RATI »PA1 /PPA1 
RAT2.P4V/PPA2 
RAT3*PA2/f PA1 
RATA«PA2/f FA2 

C 

c 

C  SET  PATIOS 

c 

821  RATMXl >C*AX1<PAT1,RAT2>RAT3|RAT4I 
RATMN1>DM1M(RAT1,RAT2»RAT3.RATA) 

RATMX2»-HATMN1 

RATMN2  — RATMXl 

c 

c  output  of  parameters 

c 

HOLA*ANCIS 

MOLl-NCGTlV 

H0L2*BLANK* 

MOL  3«BL  ANK  6 

c 

IfllSGNPI  83A.83l.833 
C 

831  1 f (NOOCP.EC.O )  GO  TC  132 
H0L4*6LANK8 
H0Ll"BLANK8 

GO  TO  63A 

c 

832  hOL2«OR 

MOL J-NEGTIV 
C 

833  mCLI-POSTIV 
C 

83A  MOLB*ANDtS 
MOLA*NEGT|V 
h0L5*BLANKA 
M0L6*BLANX( 

c 

IF  I 1SGNPP )  (AO. 833. (37 
C 

833  If INOOEPP.EO.OI  GO  TC  (38 
H0Le*8LAAK( 

H0LA*BLANK( 

CO  TO  8A0 

c 

838  MOLS-OR 

M0L4«N:GT IV 

C 

837  MOLA-POSTIV 

69 


c 

6*0  OHM  TM*  .  H*.  ||  AM,  A',  I*/  ,  A  L  Pha  ,GAPM  A  ,  C  l  S  t  ,PA?  ,  PA  l  ,hCL  A.mOL  l  #mCL  ?, 


I  MOL  »,PPA.*,  M*AI  (  l  4, HOC  5, MCI  6 

d«l  0FC*»AT(/ 

UOA.^aha;  |*u'r*  OF  *•  t  A  U  ’*i  *  R^"  (  ar  Thuc  Aft  f  (POSlMvF  / 

•1^0*  #48  if  t  |V  *  •*  1  »4t»»  AS  INPUT  ,flu.5, 

3  0M  Mu.  / 

A>  4P>.t*  PRINCIPAL  VAlurr  AKO  AOOSDFr  .MO.S 

nrh  r.  / 

6^0«*-rtMA;  |*ijTm  l Nl M  * t  NT  Nu*»8ri  ,14// 

T^0«,4C*»«' AM  »  •  »  -NiLf  F  P  ffciM  rOtaNtoABU  VE«T|CAl  AT  / 

lAU.A-Ar.t.i 
*»HM  ■'K.,  / 

'H  A\„l  ♦  IF  LtTUFP-P  FRCP  UfNARO  «c*HCAL  / 
u:uA|ABMA'  vVfc,‘r  ,*10.5, 

c«m  r(  v  •  / 

PlftNT.Ai  l  I  tf  anil  ,F10.V, 

t  an  rt  r. .  ,  i 

iMACi  :  PTA.  1  t  A  A  *F  L  I  T  uDE  BANCf  IS  *RC*  ,*10.5# 

<#4h  T  '»  ,F|j»,s,»n  UM’S.A^.AA.AH/ 

l  ll’MfP-P  i*Pt|TWL  RANCI  IS  FMOP  ,*10.S, 


I  %M  TO  .  ►  1  o  .  S  ,  ••  (|NI  I  ‘  ,  ;  AH  ,  A4  #  AH) 
C 

M4  1  Jr  I  f*#  ft  *  )  »'»••  l  *  ’,»»’»{'  T  1  ,PP»  lT 

0t>5  OcOPMATl/ 


UO«,«*bMl't,KT i  iruf-t1  Htl  t  I  Pi  ICAI  I  CN  FACTS*  / 

JJOA*Ai«m*F  PRf  •  -  »,TIN«  mPMTunr  LCC  S  A1  R 1  FlFf  T  (  Nc  / 

AiO***ilMNufcA  ACf  (Sllir  *4tt  SUR  f  AC*,  «!A  ffr  DC  SEA  / 

44*0A,4‘U,SJN»  At  t  »  AMw,  IN  THf  L  A  N  T  CASE,  INCLUDIN'.  / 

SJ0A'4»HA»Pi1  U-  f  4.0**:  <  AT  CPhAPT  AKC  CCNNmABC  / 

♦  ^«A,4flMPf  KA.  I  I'IN  4*  THE  S[A  t«t  0  ,*li).5// 

F*'OX,40MPPM*T  1  .  ..L  |’»U  P-»*  MULTIPLICATION  factor  / 

«JCK,44.iOk  pt.|  sr \T  INL  A  PP  L  l  T  IlOE  LCSS  PELATIVC  TO  p  DuF  TO/ 
'»^0*.4Bt«A\y  i  ’h  *  CAL':  (HUT  NOT  INCLUDING  PPf-CTf)  ,*10.5// 

4,’ON  jMpp*  L  T  I  PPFCT  l  APPrCTPAPOFCT?  I  ,  F  1 0  .  *  | 

r 

1  (  (  A  L  PH  A  .  N  .  .  1.  V  M  A  )  H*1  *Tl(6,H66) 

066  OFORMATt/ 


WlM.^auP  AND  L  ;  mrp-i>  T  AN  cC c  *  ANCLES  A  1  SCu^Ct  ARE  NOT/ 

4^0X,  «♦«**(  CUAL  -  *RmO  IS  Df£  P  I 

c 

IF  (N<vr  p,»  %  .0  t  Go  1C  (M 

mR  !  T  F  ( o ,  t*  ^ ;  ) 

04J  FORMAT  ( /,'C*,h»mP  A M  f  l  IT  UOC  RANG!!  SPANS  C*  RCuNLs  J*RG  I 

O'  TO  •»«.* 

C 

H4  3  I M  N  H'  GC  TC  F4  S 

H44,  FORMAT  ( I  TTi  t  F-P  A*«»LITuCE  AANcf  SPANS  C  M  Ht  LNTS  ICnL  I 
C 

C  I'E TERMINI  MNtXSI  I‘f  ACC  PTADLf  AMFLlTLCf  RATIOS 

C 

«4 «*  iMNnrrr.^.n  jo  t r  tsi 

c 

c  p  is  n-'t  s.-rai  -  ram.  f'r  little p- p/ f  is  u$rr 
c 

wRITF(n,6s<  ) 

84 h  F0RMAT(/:0*#4rtr.CATK  CF  LITTLFP-P/P  IS  USED  I 

c 

I  *  I  I  SON  p  I  L4?,<J4S,6'C 

c 

84/  1*1 tSGNPPI  l‘*,848,t'T 

84a  IF  (NOPV  PP.  .  I  )  GO  TC  «s*. 

GO  T  0  a  t 

c 

84<j  i*hsgnpp.:g.c>  go  h  f4j 

GO  T t 

c 

8S0  I*  (  I  SitNPP  I  8*  7,  PAP,  I  M 
C 

C  p  IS  N’fAl  -  •»  A  T 1 0  LF  F/lITTLFP-P  IS  LSET 

C 

8^1  MRIT|N,8*4l 

85,'  FOflMATI/JOKfPHNATtC  C*  P/LITTLEP-P  IS  U<feC  » 

C 

IF  (  ISGT.PI  T  S  *  f 

c 

•4J  IMISGNPPI  fS*,PNN,l  *7 
C 

854  IF(ISGNPr) 

C 

C  OUTPUT 

C 

8*5  MR  I  Tf  (<  ,!»'.•»  |  Rt  TMNl,RITNtH 

GO  TP  as* 

856  MR  I  TF  |  f> ,  f  *  1 1  4  ATPNl  ,n#  TPKl 
85  f  MR|Tll6,PNt)  s  aTMN?,FITpx.' 

058  OF'RMA’I/ 

1  ,0  A  f  N4MACG  L  F*t  A  P  l  E  -AN(|  OF  OrtSrAVEC  APPLlTtDF  KATR’S  IS  rRl*  . 
if |P.Nt«N  T  , • in.*/ 

J.'OK,40U(PAt  8F  P/t  I  T  T  l  f  P-  P  ta  UTTlEF-P/r  -  SEE  abc  vr »  I 

c 

095  SINAL-OSINUl  PMA*c  PI  1  I 

CO SAL -per  s | A l Pm A* C P I  I  ) 

C 

SING  A -PS  I  Mi A*  'PI  1  I 
COSGA-rr.  SCt  AM^ARL'Pll  > 

c 

MR  l  Tt  l>  ,  4'  M  (U(  INF  *  (  [)  ,  I*  l ,  II 

896  RilL'MAT  l|4l  fMRF  ?U  TS  FOR  THIS  PEASE  PAIR/1SX,  )AP,?m-«-I 

IF  (  tPRUM.!  w.OI  wMTrR,AS’I  ( ul  INE  I  11*1-1,41 

09f  OF  On  MA  T I  /  ,'»i  %,*  1  t't'H  I N  t  *'  L  I  OF  C  «»'AMMf  CRIENTAT  IONS  -  NCT  Rf  GCfSTFO 

’0 


t/20x.9Aa,  JH-~ » 

IF| IPRNT1.NF.0I  k>ml«,80ei  (UL  INE  I  l )  .1*1  ,9) 

85d  aFOFHAT(/20«,35HPRtNT’LT  CF  COHPATtaiE  OAIENTAT ICNS/20* ,9A8 , il - I 

Tfl  IPRNT1.NF.0I  «► I  If  It ,893  I 
893  OFQRHATI/ 

120A.30HSA  >  SLIP  ANuL  c  IN  CAULT  PLAN  f  ,  10* .  29H0 1 P  •  CIP  OP  FAULT  PL 
2ANE.IOA.27HSTK  •  STRIKE  OF  FAULT  FLARE// 101 13h  SA  DIP  STR  I/I 
[FI IP1371.FC.0I  GO  rc  {99 

OCALL  SETUPv(T|Ti.F,TlUfl,8HSLtP  AKG.EP  01P.8H  STRIAE, 
1SPSU.SPINC.SP'  IN.SCELU.SCINC.SOEITN.SSTREI.SSINC.SSTRAN,  31 

c 

899  NTAUf-0 
IP1LL-1 
FAEAL-0.00 

C 

C  . . -  CC  FOR  EACH  SLIP  ANCLE 

C 

901  00  too  IPSt-lPl.lPN 

c 

SPS1»0FL0ATI1PS!)*C1LC 

c 

C  ••••••••#»  c:  FQA  EACH  CIP 

c 

OC  SCO  IDFLTAUCI.ICN 
SOELTA-CFLCAU  I0ELTAI«C1NC 

c 

SP$C«SINTAeUPSll»SlMABUOELTAl 
SPCO-SINTAel !PS!I»CCSTA8(I0EL7AI 
CPSC*COSTA0<  IPSII«SIMA8I  1  DELTA  I 
CPCO-COSTA"! |pSI1*CCST/8(I0ELTA| 

c 

Pll*C3STAeiICELTAI*CC$AL 

P2i*cpsrpccsu 

P31-SPSCPCCSAL 

ppu.cosTAeuoELTAi»c;saA 

PP21«CPSC»CCSGA 

PP31-$P$C«C0SGA 

c 

C  .  rC  FOR  EACH  AElMLth  FPCP  STRIAE 

00  '00  IETa-ICI.IEN 

c 

SESA.SInTAPI  1FTA|PS1*>«1 

cESA^cosTAei ietai«s:nal 

c 

Sf  SC-SINTA3I IETAI»SI9£A 
CFSG'COSTAei IETAI*SINCA 

c 

P12»SITTAeiICELTAI«Sf<A 

P2223«CPC0*S6SA«si\TAeupsii*cesA 

P3233*SPCO«SE5A*COST«SIIP5U*CESA 

c 

PP12-SlNTAEIICflTA|<SfSG 
PP2223*CPCC*S£$C*SIMAe<IPSII«CE$C 
PP 3233' SPC C* S F SG-CC S rA8( I  PS  II *C ESC 

r 

PI-PU-P12 
P2--P21-P2223 
p  3*-P3l-»3  i:  3 

c 

PPl.-PPU-f  P12 
PP2.PP21-FP2223 
PP3»PP3 1-FF3222 
C 

AP-CSINI2.CO*CARCCS<°3 1 1 ♦CC0SI0ATAN2IP2 , FI  II 
APP-OSIM2.CO»CAPCC*  IFF  31  l•OCOS^CATA^^tPF^,PPll  l*PPFCT 

c 

ISTPIR.IAZ-iETA 

IF  I ISTk IK.LC .01  lire ;a*I5t»IK«NS 

c 

I * ( NODE P .EC . 1 1  CO  TC  995 
C 

C  u$t  lITTLEP-p/p 

IFIISGNPI  <10.911.912 
C 

910  IF  UP.CT.C5PAUI  CC  TC  990 
iFlISCNPPI  920.912.930 

C 

911  Ifiap.CT.spauI  GC  *c  912 
IFIAP.lT.  7SHAUI  CC  TO  912 

CO  ~J  950 

912  lFINOrEP».EO.n  GO  Tc  920 
GO  TO  990 

c 

913  IFIAP.lT. SPALLI  GO  Tr  990 
1*1 ISGNPPI  930.912,920 

C 

c  test  i 

920  AAA'.APP/AF 

IF IARAT.Gt.RATMA1 I  GC  TO  990 
IFIARAT.LT.RaTPNII  CC  TO  990 
O')  TO  980 

c 

C  TEST  2 

910  ARA’.APP/AF 

IF1APA’.Gt.< «T«a2i  GC  TC  990 
|F(apat.lt.,aTmn2I  CC  TO  990 
GC  T0  980 


71 


TEST  8CTh 

44 0  ARAWPP/AP 

IP |fi&AT.GT.RAT*xi)  CC  10  441 
I F I  At  AT  »lT.RATMMI  CC  10  441 
GC  T«*»  480 

441  IH  APAT.Ct.SAT'*h?J  CC  1C  450 
JC < APA'„l*.P ATMN2I  GC  10  490 
GO  T3  4  80 

US*  P/l  !  TUEP-r 

445  1FIISGNPPI  446, 44  7,445 

446  lMAPP.C’ .CSPALl  )  GC  U  490 

im iSGNP.:c.n  gc  t:  4 to 
GJ  rr. 

447  IM  APP.CT.SHALL  )  GC  TC  440 
IF  I  APP.l T.CSHAllJ  GC  TC  448 

GO  T1  49G 

448  IM  ISGNP.cU.CJ  GO  TC  45G 
GO  T  '  *.  7C 

449  IP|APP*LI.S“ALLI  GC  TC  *90 


1FII5G 4®.- 4*-l>  GO 

TO 

460 

TEST  1 

450 

AB  A’-AP/At  o 

IF  1 ARAT .Ct«PATmX|) 

CC 

TC 

490 

IP  1  A*AT#tT.BAT'lM> 
GC  t-«  4  8C 

GC 

1C 

490 

TEST  2 

460 

AP t T  >4?/ df  P 

IF { ARAT  .GT .F  ATMX?| 

CC 

TC 

490 

IF|ARA’.lT.RATMN2) 

GO  T '  483 

GC 

10 

450 

TP  S  T  flTTn 

470 

ARAT»AP/M  F 

IP ( afa’.gt.ratkxii 

CC 

10 

4  7  1 

1  F  1  ARAT.LT.RATmmI 

GC  TC  4e3 

GC 

10 

471 

471 

JF1APAT ,fT,RAT*X2l 

GC 

TC 

450 

IP ( A PA’ .LT.R ATm\2J 

GC 

7n 

•*9C 

ACCFP" 


480  $$TPlK»OFt0AM  ISTPIKMC1NC 

|M  IPL  )TI»4f«0)  CALL  FICTVI SPSI .SCEtl».SST«lK» 
NTFUC*NTFLt»l 

FREAt*P°E  AL*SISTAP( ICELTAJ 
|  p  (  I  PA  NT  l  •  E  C  «U )  GC  TC  c,00 

II  lUFIlt  )*  IF  !X('P'!*C*5I 
JJJ<IMLII*1FIa<SCFLTA*0.5I 
KKK 1 I  *  ILL  i  *  i  f  i < ( ss  t  f I k  «  0 • 5 ) 

IP  UFlLL-10»4t9,4ei,4El 

481  HP*  TH‘ ,  ,4fi2  H  I  II  (  !)  tJJJI  I)  *  KKM  I  >*1-1*101 
4  80  FOR*AM  1(11  Uf  ;?•  IX*  t  •  (lx*l  3,  IK|I 

IF  !LL«l 

go  t ~  rno 

489  1 F ILL  r I c I LL ♦ 1 

GO  T~  ~rc 

RE  JEr  ^ 

*4  90  I  *  I PS1- I P 1M1 

j-ir-  l’4-icipi 
k*  : stf  ik-isipi 

I F 1 • NOT . M  X «  J • K  > I  GC  TC  500 
F  1  *  F  1  I  t  J  (  K  ) 

DO  451  :vl-;,nvlpi 
JF1F1F  .FG.WLM  IVU  )  CC  TO  452 
451  CO NT  I NJt 
GO  T  r0U 

492  FI  !,J*M*IVL(1,IVI-1I 
500  CONT !Nu» 


IF  1  Ul.’.’w.OI  GO  TO  «f  CC 
It 1-IC  12 
I6R« ISN2 
I E 1 2*0 
I6N2  0 
GO  T  '  401 
C 

r  - 


PP  PP  Pp  PP 


p,  LI1TLFP-P  5ECTICK  tKCS 


op  pp  pp  pp 


SP  SP  SP  SP  P,  L I  TTLfcS-P  UNC  UTUEP-P,  SP  $P  SE  SP 

-  UTILES-PJ  SECTION  BEGINS  - - 

600  GO  TO  (8JC,6Cl  .  660 , ECO ,6o4 )  .  INOP 

C 

601  TtTirim-PiiTSP 

WP  ITFU.tlO)  ICBS.STANAM,(ULlN£$m.  l-l.II 
610  OFOC-ATI  1 5X  ,  1  * h PhA S*-  PA  1 3  NO.  # I  3 *24X f 8MSTAT tON  »AB, 

125H  FOR  PHASES  P  A  II1UES-P/ 

215X,2Ad.2F--, ?4X,5Af , lF-» 

GO  TO  666 
C 

660  TITlcII<i!«lPPlSP 

IFC ISEA.Nf .0)  GO  TC  <62 

N«- 1 TE 16 *661)  !  :bi,STAKAM,tutlNES«n.!-l,lO) 
tol  0F0PNATU5X.lc^PH4SE  PAIR  NC.  .  I  3 , 24X  *BMSTAT  |CN  ,A8, 

153M  FOR  Phases  LlTUEP-P($OlID  FREE  SURFACE!  4  LITTLES-P/ 

2 15X,2A8.2H*«.2*>i.8Ae, 

GO  T  3  oc6 
C 

662  W*tTC<6,6*3!  IwftS.S^AhAH, ( UL t NE S < I> • l- 1 , S I 

663  OFOPMATI l«X,l«HPHA$F  PAIR  NO.  » 13  »24X , CHS I AT  ION  , A8 , 

14  2H  F3R  PHASIS  L  I TTLEP-P  ( SPA  BED)  4  UTUES-P/ 

2l5X,2Ad»2F**»2*»x»  ?At«2F*0 

GO  666 
C 

664  Tf TLEI ( 4l*LPPELS 

WRITE (6,6t*l  1 :BStSTAKAN,(ULlNSS(IltI*l»SI 

665  OFO«MAT(  l*!X,leHPHASF  »AIR  NO.  ,t  3t2*X ,  CHSTATICN  ,AB, 

146m  FOF  PHASES  UTTLEP-PISrA  SURFACE  I  4  IITUES-P/ 
2l5X,2A8,2H»*t£4Xt?A6,<p»*«**«) 

C 

C  PF CTgCT ICN  FTC. 

C 

666  A7»AZI 

OIF (AZ.n: .O.CO) A2-A2l-CPOO<A21«0|NC/2.CO»ClNCI*OSIGNCCINC/2.9Ca A2U 
1DI NC/2.C0) 

C 

602  IF(AZI603,602,604 

603  AZ*AZ4.*  :0.C0 

GO  TC  602 

604  lF(AZ-360.CO)fcOfc,tO<,6C5 

605  AZ»AZ-36C.C0 
GO  TO  604 

C 

6)6  IAZ-AZ/CINC*0.6C0 

r 

IFIRrGICN.EC.dt AhX4|  CC  TO  4S2 

1M«142-|SN 

IEN-IAZ-IS1 

iFUEN.GT.o  cr  re  esi 

!EN»IEN*NS 

IE  1* I e l aNS 

691  I r I  IF l .GT.O)  G"  I D  l 52 
Ifcl2-lcl«NS 

I E  1  ■  l 
I  €N2*NS 
C 

692  IFOIST.lT.OI  STwN.f  P.CIST.GT.OISTNX)  GO  TC  68B 
DISTR»0JS7*0PI1 

A1*C0EF<  l*TCEP**il 
A2-C0FM l, ICE P ) 

00  637  I-l.NCfC 
41-Al*CIST«*CCcF( 1*1.ICEPPII 
A2*A2»0:STK4CCEF| I *1,1 CEP I 

667  CCNTINUF 

AtPHA-AU(rcpTH-rf  P(  1CEPP1)  IM  42-All  /CCEFI IDEPI-OEPI IDEP* 1 1  I 
IF(C6PTH.NE.O.COI  Gf  TC  688 
PAC*OSIN(  A2#CPI  IMVFSRCC/VPO 
I c ( PAO.GT . I . CO l  PAQ-l.CO 
ALPHA-GAR S 1M P AO  I /LP I  1 
C 

688  IF (GAHMA.CG.O.Cu)  CA*w4«AlPHA 
PAQ«D$!N< ALF> A«CP! I ) • AR  CPF 
IF  <  PAG • Gr • 2 .CC )  PAJ=J.C0 
ALPHA-GARSIA  (PAO/CFI  1 
PAQ«rSIN(GAFPA*CPII  IMNGPPF 
IF(PAG.GT.l.CO)  PAG* 1 .CO 
GAHWA-CARSIN(PAg)/CPIl 
C 

8f TA«OARSlA(rSlN<GA^PA*OPI 1 »/P$RCF)/CPI 1 
G6*»MAl*CAR$!Mr>SIMCAPM*PPI  l  |«VRAT2I 
BE  T  A 1  ■  OAR  5  IMP5  IMBFTI40PI  1)«VRAT2I 
C 

IMPPFrn.feC.C.CO)  PPPCTi«i.30 
If ISPECTl.eC.C.:OI  C°FC  T 1* I .00 

c 

if i  iFCT3.fG.ci  g:  t:  ets 

SPFCT3-L.cr 
GC  TO  650 

OIEMSEA.IC.O! 

C  L 1TTIF S-PI SOL IC  FPifc  SLRFAC E I 

ISPCCT3— 2.C0*PSU«F«PSIM4.00*BETAl  I  /  I2.0040SINI2.004CAPWA1I* 
20SIN(2.C0*Er,Al)*RSc  <•  ( CCO$  <4.00*«t  T  A 1  IM.DOII* 
30Crf.(GA^AA,:pm/f-5.AT<RSRCEPRSPCC“CSIN(C4NNA40PIl)**2! 

C 

cif (  IS5A.NC .0) 

C  urrt6S-F<SEA  nfCI 

ISPFCT3«-2.rr*F  «t|cr«C<  IM2.DO»BFTAUACCCSt:.OO«0ETAl|4OCOSIOARSIMV 


2RAT1*PSINIGAMMA  !M  )  / 

3ITSIM  J.rCMGA^M  »•<  TS  IN(  2.00*01161 1  •CCOSC  CARS  INI  VRAM  *DS  INC  GAPMAi 

*111^  SOfiF*vAATl*CRAH*CSIN<6ETAll|4«$A$*CCCS<2.Q0*eFTAU*<CCCSt2.0 
Nj-PCMl  I  •CCOS  <  OAF  S  IM  V*  AT1*0$  INC  GAPM Al 1  I  )♦  V*  AT  l*Q*»  ATl^OCCS  <  GANPA  l) 
6>l*cr;'SCCt»‘M&»?P!i)/n<CftmS*CE»aS*Cf-0SIN(GAMl’AOPt  |)»*2I 

c 

690  SPFC*  -*  Prcil*S<*FCTFtSPKT2*$*FCT3 
C 

tM  ir.up.^v.i )  uc  jz  tti 
c 

lFCIrrM.SC.C)  Ci'  TC  ft<;3 
PPfC T  J* 1*00 
GO  ^  e  71 
C 

69J  GO  T **  (  ^OO.eOO.feb8*etC.67JJ  *  INCP 
C 

C  OIP*CT  p 
66?  PFCT>1.CG 
GO  TO  607 

c 

o6g  if  <  t$rA.Ni.o»  go  tc  *<s 

C  UTTir  P-F(  SCI  H‘  FFFF  SIR  P  ACE  i 

OPPFCT-*.  I  2.C0*')SIN<  2  .C C* GAMMA  1  l*DSIM  i  .C0*BETA1  | 

I-*S*S*IC<VSIA.C4>«BETA1  IU.CCM/ 

2  I  2.COOS1M  <  .00*GAMMAII»DSINC i .00«PETA1 1 

3*RSR<«t :C;5(A,P0»PETA| iu.doi j 

GO  Tn  o7i 

C  UTTl:  r-0(  SEA  PFC) 

669  OPPFCM-I  RSAS*i  cP$<2  .CC*  BETA  I  IMVRATI’CP  A TI *CCCS < CAP* A  I l-CC C S <  2. CO* 
IHI  TAll*°:nS(  Zf-  SIM  VRAT  l*PS  IN (GAMMA  1  )  I  )  I  ♦OSINI  2  «00*GAMMA  1 )  •  <  £  S  IM  2 
2.CC*btT  A  l  l*r  I  IS  (DAPS  IKi  VRAM  *DS I  N(GAPPAim»RStRF* V»AT  1*CR  Ar|*CS  IN 
J<  BFTA1 ) >  )/ 

4  («SAS*PCOSI:-COABETA1 )*(V*ATinRATl*CCOSf  GAHMAl )♦ CCns< 2. CO* 

••(JET  A 1 1  •  TCP?  (C  A^SINI  VRATI«0SINCGAPNA1 1  >  I  I *0S l M  2 .00* CAMP A  1IMCSIM2 
6.D0*Bt  TAl  MDCPSiOAC  SIM  VRAT  1 *0S1 M GAPMA 1 1  I  I *»SUPF* VR AT 1*CR AT  l»CSIN 
TIBf’Al I I ) 

GO  n  6  71 

v. 

C  L!TUFP-PI  SFA  S UR  FAC  *  I 

6  70  OPPFCT  l»4  2.CO*ri  S(CAPPAlt*CCCS( 2.CC«eE!Al >*<CS1N(2.C0*GAPPA1 l*CS!N 
1C 2.00*o I  ta l » ♦ KSP S*r: :fC2.00*BFTAII*DCCS4  2.00*aETAl I  I *2.00*09  INC  2.0 
20*oA  9MAI  l*CC:.6<2.rG*e£TAUACRSURF*CSlM8eTAl  I  *CCOS  <2  .co*e€ T  4  i j-ccg 
3SI  tapmai  )*rsiN(  2.00*0 :tai  m/ 

4  ( C  Vfr  AT  1 *C  R  A  T **CC  ? S < C AM ► A 1 1 ♦ CCf S ( 2 . CO • 6 f T H  > • CCC S ( DAR S ! M VRAT 1*CSIN 

5 c gamma i > m*t  r<  im  2  .co‘nAMMAii*osiN(2.cc*eF'Ai  i*RSRs*ncos<  ?.co*bft 

6 All *00' SI  2. ‘TO*  BE  TAD  )*VRAt1*DRAT1*C$IM2  .TO •GAPMA  ll*<RSURF*OSIMBE 

7TAii«nc:st ;.ro*Bt tai  i-ccosc gamma ii«c< im2.co*bftai i  )  i 

PPFTM  —  PPf  Ct  3 

OPPFCT?. FPf : T  3 • 

l  RS  K  S  •PC'?  S  (  CAF  SIM  VRAT  1  *r.9  IN  (GAMMA  n  )  I *0C C S < 2.0G*BET A  1 1 *2 .00/ 

2 C PS  I’M  2.CC*CA»MA1 )H B SL*F*OS INC«ETA1I«0STK( 2.00*66 r All *CCCS(CARS IN 

2<vRATl*rS!M6AMMAl )  I  ) / I VRAT l *rR A M  I  I  *R  SR  S*OCC$  C  2  .  nO*HF  TA  1 1  •  C  CCCS  !G 
4AMMAI)  > *;  (2.~i)«6f  TAl  I  *CCOS  (CAP  SINC  VRAT  l  *CSINC  GAMMA  1)  )  I  /  I  VRAT1*CP 
SAT  |  m 

c 

671  PPFCT  PPFCTl*PPFCTf •FPfCT3 

r 

60  7  ISGNP-0 

IF (SIGNP.FC.FLJSI  I  SGN  F  * l 
I1  <Mv.NP.hC. *!NUS  I  ISGNP*-1 
C 

ISGNSP’C 

IFCSlGNSF.t-w.PLUSl  ISCNGP-l 
If  C  S I GN ^ P • E G . M I NU S )  I SGNSP«-l 

PAl*OAi)SIPfll  IM 
PA2-PAH*  (  P  &  2  !  h  ) 

SPAi=»rAt»S(FPAi  INI 
SPA2-0APSU  PA 2  IN  I 
C 

IF (PAl-PA2I-ll,tOe.« 12 

U 

6 JO  ICC INPP.NE w I  GO  Tr  t i« 

C 

WRITCI 6, SCSI 

609  OF  3FMATC  ,•  PmASF  PMR  DElETFC  •  P  C«  ItTTLES-P  APPlITUOf.  RANGE 

IMAS  /IRC  NirfH'l 

GO  TO  r*SS 
C 

672  MRITFC6,07;) 

673  OF  OR  MAT  I  //2PX  »  •  PhA$T  FAIR  OF  Lr  TF  0  -  LlTTifP-P  Q«  L1TUES-P  AMFlITUO 
IF  FANG."  FAS  2ER0  M  I  C  T  F  *  I 

GO  T  "*  s«;-j 
C 

61 L  PAC-PAl 
PM-PA2 
PA2-PAG 

612  IFCSPAI-SPA< I613.FCF .< U 

613  PAO-SPAl 
SPAt»SPA2 
SRf 2-PAG 

C 

614  NOCfP-O 
N0CE5P-0 

IMPA2.  ;T.5*AU  I  Cr  TC  6 1 S 
NOCFP* 1 

IFCIS'.^F.FC.CI  PA  2  *•  F  A  | 

6 1 5  IPCSPA:.Gt.SPAIU  C.C  TC  61S 
|f  INCrfc»*.F  w  .  ?  I  GC  T c  <19 

c 

I  f  I  I  NOP  .Nf  )  GC  T  ■  *  '•* 

7b 


M*|TEI6»« 17| 

617  0fO*MAT|//20x,# PHASE  PAIR  CELcTcD  -  9  AKC  LlTTtt$-P  AMPLITUDE  RANGE 
1$  BOTm  SPAN  OP  BCUNT  7*ROM 

Gr  TC  SSS 
C 

6 74  NP!Tf«b.a7f J 

675  Of  OP«AT<//20X,'PMA$.  FAIR  CCLETCO  -  LlTTl|P-P  ANO  UTTlFS-P  APPtITO 

io*  ranges  °c*f  span  ;p  aauNO  zeacm 

GO  To  5<i$ 

c 

618  NOCfSP-I 

Ic I  I SGNS  P  .CC.C I  SPA2--5P41 
C 

:  CALCULATE  RAM"  PANCfj 

c 

6 1 S  If INOOEP.k^.l >  GC  T:  <20 

0 

C  P  ICP  LITTIPP.PI  i:  KC1  NCOAL  - 

C  L|TTLES-P/f  10*  U*  TIE5-P/1  ITTLEP-PI  IS  LSEO 

c 

kt'  1-SPM/PAl 
RA  VSPAl/f AJ 
RAT3-SPA2/CA1 
RATA»SPA2/CA2 
GO  TO  621 
C 

c  p  icp  Limfr-f i  k:cal  - 

C  SHALL  uif  P/LITUg-.-p  ICR  L  1  TTl E P-F / L I T HES-PI 

620  RAT 1«PA  1  /Sf  A  1 
RAT2*PA1/Sf A2 
RA»3«PA2/SPA1 
RATA-PA4/S ot2 

C 

r 

C  SF T  PAMCS 

c 

321  RATMX1*C«*6M4PAT1  ,PAT2  ,RAT3,RATA| 

RATHNl*C«IKlff ATl,PATi#RAT3,RAT4) 

RATMK2*-RAT*M 

RATMN2--RAIPA1 

c 

C  OUTPUT  >*f  PAR  AMt  T£  *  S 

C 

HOL A-ANCIS 
HULl«NcCT  In 
HrL2-8LANnA 
HCL3-0LANK6 

C 

IMISGNP)  t 34.631.6 23 
C 

6J1  1* (NCDtP.SC.Ot  GC  Tr  (22 

HOL  A»6  L  AN  R  0 
H**L  1  “BL  AKR  f 

GO  TO  634 
C 

632  mCL 2*0? 

HOL  3*NT  GT  |  v 


6^3  MOL  1 *Pr  ST  I  V 
C 

6  34  HOLe-ANTl'. 

H0L4*Nf  G  T I  V 
mcis*blan*4 
MOL  6*81  AM P 
C 

IMISCN&P)  640.6  25.637 
C 

639  |f |NO0£ SP.fcC.Ol  GC  TC  63o 
H  )LB*BL AAKf 

MOL  4*8L  AM  6 
GO  TO  640 
C 

636  MOL5-OR 

MOL  6*NE  GT 1 V 
L 

637  HOLA.PCSTIV 

c 

640  IFUNDP.NF.i)  GC  Tf  677 

c 

OMR  I TF 16,641 »  A/I ,A; . (if , AL pHA »BE T A , C 1ST  .  * A2 «PAl .HOIA .HCL 1 . HQL2 » 


lHOL3.SPA2,SPAl.HfLft.fLL4,HCL5,HOL6 
641  OfORMATI/ 

120K, 48HAZ I  PL  T  m  Of  STATION  CR0*  EAPTMCUAKE  (PCSITIVE  / 

22  OX  . 40HCLOCKW  I  $E  FP  CP  NORTH!  AS  INPUT  .MO.  9* 

20M  OEG.  / 

420X,4aMAZlPUTH  A$  At'CVf,  PRINCIPAL  VALLEC  ANC  ROUNOEC  .MO. 5. 

5BH  OEG.  / 

620X.4RHAZ  I*LTH  |NCRl»tM  NUMBER  .14// 

720 X .4 AH T AH C C F f  ANGLE  Cf  P  *RC*  CCmNMRO  VERTICAL  AT  / 
620X.46HSCGACE  .f 10.5. 

98H  OEG.  / 

A20X.48HTAKr3cF  ANGLE  Cf  L*TUt$-P  FAC*  UPWARD  VERTICAL  / 
B20X.48HAT  S0U»C2  .*10.*. 

CBM  DEG.  / 

02  Ox .48E-EP ICFNTE  AL  CISTANCE  .*10.5. 

E0h  PEG.  // 

f2OX,40HACCFFTAPLc  *  APfLlTyOE  RANGE  IS  *«C»»  ,flO. 5. 

G4M  TO  ,fl0.6»6f  UNI  TS.2A8.A4.A8/ 

H2OX.40H  ACCEPTABLE  LPTIES-R  ANPL I  TuOl  RANGE  IS  **0*  .*10.!. 

t*M  TO  .*10.*, 6m  UNIT S.2A6.A4.A8) 


c 


«»ITEIo,6?rl  SPFCTI,?*«<ti,S*fcT*.S*»CT 

674  OF  0<W'l  / 

l20X,48r-£PFCr:...ll’llE!-P  PLITIPLICAIICA  FACTOR  / 

220X.48MF FPRF  S(  MING  AMPLITUDE  LCSS  AT  REFLFCTING  / 

J20X,4ti«SUF FACE  1 S CL  1C  FREE  SURFACE  CP  SEP  6cC»  .F|0.S// 

420X.4tiMSPFCTl...LlTH£'-R  MULTIPLICAHCA  FACTOR  / 

5201. 4HH>  CPRfc  El  sriNC  AMPLITUDE  ICES  RELATIVE  TO  R  DUE  TO/ 
620x,4dHANY  CTh  a  CAUSE  (ALT  SCT  INCLUDING  SPFCTF)  .FIO.S// 

7AO*. 48MSOFCT2... NORMALISATION  RATIO  BETWEEN  PAX  I  HUM  S  / 
820X.48HAAC  P  AVPLI-LCt'  AT  SOURCE  .Flo. 5// 

920X,4drtSPFCT  (  =  r.PFCTl»SPFCTFASPFCT2»$PFCT3l  .F10.5I 


C 

IFIALPHt.M.CAHPA)  »MTEI6,a66l 

c 

IF (NCOF r .tC.OI  GC  TC  <43 
WAITtlc,<42) 

642  FOR«*AT( /20»,48hp  APFUTuOc  RANGE  SPAAS  CP  eCUNCS  IE*C  I 

GO  TO  64? 

c 

6  77  OMRITI  (o,67t)  A/I.A2.IA2. GAP PA .BETA.OIST .FA2.PAI, HOLA  »HOL 1 ,  H  3l2 . 

lHOLa.SPAJ.'PAl.HCLe.KLA.MQLS.HCL* 

67a  OFORPAT( / 

120X.48HAZ IMUTH  JF  STATION  FRCM  EapihCLAKF  (POSITIVE 
220X.48HC LCCKkl S*  PACK  NOPTHI  AS  IAPLT 
38H  OFG.  / 

420X.48HAZ IMUTH  AS  AfCVS,  PRINCIPAL  VALUEC  ANC  ROUNOEC 
S8H  DEC  •  / 

620X,4dHAZIMLTH  INCREMENT  NUMBER 

720X , AflrtT  AKFOFF  ANGLE  Zf  LlTTLEP-P  FRCP  0  FW ARC  VERTICAL 
820X . 4dHAT  SOURCE 
78H  OLG.  / 

A20X,*8HTAXfnFF  ANGLE  CF  LITTLFS-P  FRCP  UFwARC  VERTICAL 

820X.48HA7  FCLFCF 

C8H  OFG.  / 

020x.a8..'=P(CENT^al  CISTANCE 
fdh  OFG.  // 

F20X,48Ha:CEF7a  (Lr  LI"LEP-P  amplitude  raage  is  prop 

G4H  T0  .FIG.5.6U  UNITS ,2A8, A4.A8/ 

H2CX,A8HACf FFFAeLS  L!TTLtS“P  AMPLITUDE  raage  is  from 
I4H  TFI  .F10.3, 6H  UNITS.2Ati.A4.A8) 

C 

WPITF(o,?7S)  PFrCT3.FFFCTl.PPFCT,SPFCT3,SPFCTl,SPFCT2,SPFCT 


679  OFGRMAT  (  / 

120X.48HFPFCT: .. .L ITTLEP-P  MULTIPLICATION  FACTOR  / 

220X. 48mRFP«F$EN'ING  APPLITUOC  LOSS  AT  REFLECTING  / 

32GX.-8MSUPF ACF  liCLIC  FRcF  SURFACF,  SEA  PEC  OR  SEA  / 

420X,48HS(,FF  ACF)  ANC.  IA  TM£  LAST  CASE.  INClUdNC  / 

C2CX, *8tiA«0LITU(t  LOSSES  AT  UPWARD  AAC  CC.AwARO  / 

620*,48P«tFRAGT  I ’N  »T  7l-r  SEA  BF.C  .FIO.S// 

720X,4dMPPcCTI...LITTLcF-P  »Ul T I  PL IC A T I  ON  FACTOR  / 

»20X,*8mfEPSFS:n*ING  APPLITUOC  LCSS  RELATIVE  TC  P  OUE  TC/ 
920X.48MANY  CTM-t  FALSE  (RUT  NCT  INCLUOIAC  PPFCTF)  .FIO.S// 

A/CX.AtiMPoFCr  ( ,PPCCT1*FP=CTF»PPFCT’>  ,*10.5// 

820X,4»HSPFCTi.„LITTL*S-B  MULT!  PL  ICA  T  I  CA  FACTOR  / 

C20X ,6  8MF -PFFSrNTINC  APF  L I T  UOE  LCSS  AT  REFLECTING  / 

020X,48«SURFA'E  ISOUC  free  SURFACE  CR  SEA  8ECI  , FIO.S// 

E20X,48M$PFCTl...LITTLES-P  PUL  T  l  PL  ICAT  l  OA  FACTOR  / 

F20X,A8HR-PJ*SENTING  APFUTUOE  LCSS  RELATIVE  TO  P  DUE  TC/ 
G20X.48HANY  OTm-F  CALSS  (BUT  NOT  IACLUCIAG  SPFCTF)  .Flo.5// 

H20*,4dHSPFCTI.,.NQRPALlSATI0N  RATIO  BFTWEEA  PAXIPUP  S  / 
120X.ARHAN0  F  ANPLITLCcS  at  SOURCE  .F10.5// 

M20X,4tioSP*C T  ( -SPFCTl«SOFCT**SPFCT2»SPFCT3)  .FIO.S) 


C 

peg  T*pp*cr 

c 

IF (ALPHA  .A" .GA»»A)  WRITE(6,866I 

c 

IF(NGCCP.rG.G)  CO  TC  <43 
WO(TF(6,6*:3) 

680  «C»“AT( /20*,68HL (TTLEF-P  APPLITUCE  RAAGE  SPANS  OP  BCUNCS  Zt«C  I 
GO  TO  645 

C 

643  IFINOOCSP.SO.OI  GO  TC  <45 
W«!TE<ti,t44l 

644  FOFPAT( /2r X.A8HLITTLES-P  APPLITUCE  RAAGE  SPANS  CR  BCUNCS  IERC  I 
C 

C  OC'e»MINE  FAACMSI  C«  ICCEPTABIF  APFLITLCF  RATICS 

c 

645  IF (SCrCF.EG. II  GC  TC  <?l 
C 

C  P  (0«  UTTlFF-pi  IS  aci  ncdal  - 

C  RATIO  OF  LITYl*S-P/P  (CR  l ITTCE S-P/l I TTl fP-P I  IS  USED 

C 

IF( INDP.'G.E)  RR(TF(<,<46I 

646  FORMAT!  /  20X.48HRATIC  CF  LITUES-P/P  IS  USED  I 

C 

IF  (  (NOP. Nr  .2  I  «‘UTF(<,<81I 

681  FORMAT! /20X, 4 8n, ATIC  C*  L I TTLE S- P/l l T Tl E F- P  IS  USED  I 

C 

IFIISGNP!  '*  -..4S,<SC 
C 

647  IFKSCNSPI  S", 648. <57 

648  IF (NOOF  S°.EC • 1 1  GC  TC  <?5 

GO  TO  6  S  6 
C 

649  IF( ISCNSP.SC. 01  GO  TC  <4B 
GC  TO  656 

C 

650  I F ( I SGNSP )  <*  7, *48,*?S 

C 

c  p  i op  i i ttlfp-p)  is  a:cal  - 


/ 

•FIO.S, 

.FIO.S. 

,14// 

/ 

.Fto.s, 

/ 

.FIO.S, 

.FIO.S, 

.FIO.S, 

.FIO.S, 


RATIO  0*  P/llTTLES-f  tC»  U TTLFP-P/L  ITTL t S-P I  1$  USED 


fc5l  lMINCP.EO.il  RPITM6.652I 

652  FQRMATI/20*,48nRATIC  CF  P/LI TTlES-P  IS  USED 

IMINOP.Nf.il  HP  IT.1<6  ti62l 

682  F0F"AT</2G*,4BM«ATIC  CF  L  I  TTLEP- P/Ll TTLES-P  IS  USED 
IFUSGNP1  it  3,c5«,‘*A 

653  IM  ISGNSPI  6*5,656.*  5  ? 

656  If< ISGNSPI  t*7,t5t,tr€ 

OUTPUT 

655  IF  <  INTP.EC.il  **  IT5  le.6581  R  ATRN  l ,  BMP  X I 
IF | lNCP.Nt.2 )  wRITE4*,683)  BATUMI , BATPMl 

GO  T n  os* 

656  IFUN0P.E0.2I  wRITf  16.653)  RATMNt  •MTPXl 
l F ( I NCP«Nt .2 )  NRITflitfc83)  RAT«N19B6!»X1 

65?  IFUNPP.EQ.il  «PITEI6,65ai  R ATRN2  »RA  TMI2 
IFUNpp.NE.2)  Wc I ?£  1 1 • 683)  RATMN2*RATF X2 

658  0FPPMAT(/ 

120* «  54MACC  F  PTABL  f  BaAC-E  of  C9SEF  Vf C  APPLUCOE  RATIOS  IS  FRO* 
2F 10 .5.4M  TC  *  F  I C • 5 / 

320X.48MIP6V  !*"  p/LITILCS-P  OR  LITTLES-P/F  -  SEE  ABOVE )  I 
633  0F1B-ATI/ 

WOX.'wHACCFPTAELc  PiNut  OF  08SERVIC  AMPLITUDE  RATIOS  IS  FAC* 
2F1P.5.4M  TC  ,P|0.5/ 

320X  ,48m( *Av  oF  CITU’F-P/LITTLES-P  C*  LMUES-P/  / 

420X,48HL I’ TLFP-p  -  5 Ce  A80VII  I 

655  GO  TO  l 8UO.6c4.Fd5.2CO.685l ,  INDP 

684  SINAL«DSINULPHA*CP11I 
COSAl-0CCS(ALPHA«CPI l  I 
GC  TC  666 

585  SINALOSIM4  1  80.C0-C  APPAt»DPl  11 
COSBL-PCCSC I ldC.OC-CANPAI*OPI II 

636  SI  V'8t*0SIMRFwA*Cr  I  |  | 

C  :S8E-0CCSIdiTA*CPIl I 

wB  I T  E ( 6 . 8S6 I  IULlNr$< 11.1*1,3) 

Ic(  IPRNT1.FQ.UI  NPf"ff6.«97|  <UlI*€(n,l~  1.41 
IFUPRNTI.KF.OI  NRITF(6.990I  (UL  IKE  (  1 1  .  (  *1 .4  I 
IF  UPRNT1.AE.0I  ^UTU6,8S3I 
IP  I  I PLOT  1.5  w.O I  CC  Tr  6 99 

OCALL  STTUPVIMTU, TITLE  I.8HSLIP  AKG.  8H  0IP.8H  STRUEt 
lSPUl,SPINC.SPSIN,SCELTlf$CINC,S0ELTX,SSTBKl,SStNC,SSTRKA,3l 

699  NT»UF»0 
Ic  ILL-1 
FR6 AL-O.CO 

CC  FOR  tACH  SLIP  ANGLE 

:o;  oo  boo  ipsi«!U.|pn 

,p$l*pFcrA7i  ip>M4«:i4C 

SINPSI-S  I N t Ao I t PS  I  I 
CQSPSI»CCSTA0l  IPS’  I 

■>ASP"SINAt*S  1 1.  °  S  l 
SACP-SINAL*CCSPSI 
CASP»C^SAL*S1NPSI 
CACP-CCSAL*C:SPSI 

SBSP*SIN0E*SlNPSl 

SCCP*S1N0F*CCSPSI 

cesp«cjsPE*siNP$i 

CfiCP-C3S8E*CCSPSI 

.  re  FOR  EACH  CIP 

00  300  10ELTA*  101 , ICK 

SOFLTA-OFLOAT|IOELTA|*C!NC 

$  I  NOEL  •  SINT  AM  l  CELT  A  I 
CCSCrL*CCSTAP I  I Cl L  t A | 

CACC-COSALACCSOEL 

SASC-SINAL«S!NOri 

SASPca«SASF*coscrL 

SACPrO“SAC°*CCS0(L 

CASPSn«CASP*SINOEL 

CACPSP-CACFASfNOK 

S8S0-SINBC*STNCIL 

SHCO-SINBfACCSnEL 

CBSC-CISSMSINOU 

cprc«CJS8F*ccsorL 


sesPsn»sose*siKcci 

SBSPCC- SB$P*CCSO£L 
SBCP^P«S0CP*5 INCf L 
SBCPf n-5HCF*CCS0£ L 
CBSPS^-CBSP^SINntL 

cb $»rr'  ■  ?sp*ccsrri 

CBCPSr«:«CP*M*DEL 
CBC*»cn=r  *?:p«cosntL 

1AA44A4MA  CC  PGP  EACH  AZl*LT»-  F«C*  STRIKE 

on  3or  if t a. in, un 

SINFTA-SJNTAPt  l E  T A  1 
CnSF^A-CCSTAtM !rTAI 

PI-CAC4 -SASt*S 1NETA 

P2«-CACPSC-SACPCC*$INcTA-$A$P*COS€TA 
*3  — CASP$C-SASrCC»$INcT4tSACP*CCSFTA 

AP*OS!M2.CO*CARCOS(P;  J  I  *DCOS  COATAK2  ( P2  ,  F  l )  I  *PFCT 

SPNl--CL-CC-St>Sr  *SlNfT4 
SP^2'CBCPSC'-SB-:pC0*SINETA-SBSP*C0S6TA 
$P»<3»CbSPSr->rtSPCC*5  infta*sbcp*ccsita 

THt  TA«rAH vCS( SPP3I 
PH!«r'ATA\i;tSPH2f  SPNU 

SINTMr-CSIMTM:  TAJ 
S I  NPhI  »  C  5 1  a  4  r  I  ) 

Cn$PHl«r-^5(ph! j 

ASPTHr.*C:CS4  2  .C!C*ThFTA)»C3SPHI 
ASPPHl  =  -CCrS<  Th;-T*|*S  IK  PH  I 

SfcST*SlKFTA*Sl\Tn«: 

CrST-C  'Sf INThF 

sfsi*s;neta*s;nphi 
SEC  I 

cf s i *r  3sr ta*sinp»-i 

cFci=r  isF^Mcr jDhj 

OSPANG1  — $CCC«C  .SPHl«  «BCPSD*SINPHI-SeSPSC*SlNTH6 
1*CBSD* >r  Cl *CbCPCC*SE  S l-CBSPCC*  SE  ST 
^♦CflSP-OSMCPC^Cf  ST 

osPAN<;?*-S!\rf L»cFci-c:5PSi*ccsoeL*cesi*siKPS!*CGSOEi »cest 

1*S1NP$!  ‘Sfc  SUerSPS  MUST 

0ASP*0Sw°  T  (  <  ASPTbE**i  I  ♦USPPH[**2n*CCOSICATAN2(SPANG2,SPANGl  » 
10ATAN2( AST Fh! , ASPT^E  ))*$PFCT 

ISTRIK-IAZ-IC ta 

lMISTMK.tt.CI  1  S  T  p  IK.  ISTRIK^NS 
IFtNOrgP.Ew.il  GC  TC  !  A  5 

USE  I.  I  T  T  l  c  3- P/p  (CP  LI  TUES-P/LlTTLEF-P) 

IP(ISGNF)  3  10  ,'11,21? 

310  1F(AP.l-T.C$PALU  GC  T:  39C 
IMTSGGSPI  ?20,312,3?C 

311  IF  CAP. .SPALL  I  GC  TC  -12 
IF  (AP.L  t.0$**ALL  I  GC  T:  312 

GO  T r  jc.^ 

312  IF IN«0  SP.fW.l I  GC  U  :20 
GO  TO  3*0 

313  Ir  (AP.L  t.S-ALU  GC  TC  1*90 
IMISGNSP)  2  30 , 3  12  »  22C 

TF  ST  1 

320  APM-AGP/AP 

IF < APAT.GT.PATM<1  )  GC  TC  390 
JF  t  AP  A*  .LT  .PAT^M  )  CC  TC  *90 
GO  T '  360 

TEST  2 

230  AQAT-A$P/4P 

IF  (  *rAT  ,C,T  ,9ATmX2»  Gf  TC  190 
IF ( ARAT.iT.FA T"S2I  GC  *C  390 
GC  3*30 

TEST  BOTh 
340  AOAT-ASP/AP 

IF tARA".CT.PAT«Xl |  CC  TC  3*1 
Iff  APAT.LT  .PATHN1  )  GC  T3  341 

gc  Tc  jeo 

J*l  IF(AFAT.GT.FATHx21  CC  TO  290 
IF(APAt  ,Lt.PA**N2)  C«"  TO  *90 
GO  T  ’ 

US'  P/LITTUS-P  tea  l  IITLFP-P/L  IMLIS-PI 

345  IF(ISvNSP)  346,347,249 

346  IF  1 ASP.GT.wS^ALL  I  GC  TC  '90 

t*  i  isgnp.  w.n  gc  •:  uo 


G'  T0  250 
C 

347  |F  USP.GT. SHALL  1  Co  tC  348 
IF  USP.L  T  . CSMAl  L  )  CC  TC  3*8 

G  '  T1  3  SO 
C 

34a  IF*  ISGNF.fcC.JI  GC  TC  jfC 

GrJ  TO  3  7C 
C 

3*9  IF  |AsP.ir.b«AlL  I  GC  TC  390 
Ic l ISGNP.Fw.- 1 )  GC  TC  360 

C 

C  TF  ST  l 

3 50  4R4T*AP/*SP 

IF  *  APAT.GT.RATMXU  tC  TO  39Q 
1M  ARAT.lt. AAT.mnu  CC  TO  390 
GO  TO  380 
C 

C  TF  ST  2 

360  ARAT-AP/ASP 

1*1  ARAT.CT.AAT*x2  »  iC  TO  390 
IF  URAT.iT. ft  . m«N2>  CC  TC  390 

oO  ”0  380 
C 

C  TF<T  BOTH 

370  ACAT.4P/ASF 

IF  <  ARAT.GT.ft  A'"U  1  CC  TC  371 
Ic  URAT.LT  .UTMN1  |  CC  TC  3M 
GC  TO  360 

371  IF ( APAT .CT .FAT*X?1  CC  TC  39Q 
IM  APAT.LT.t  ATmn^J  oC  TQ  390 

C 

C  ACC  5  PT 

C 

*80  SST**lK»CcLCATI  JSTMaMCINC 

1*1  1PL0T  KNF.OI  CALL  HCTV  (  S  P  S I  t  SOE  L  T  A ,  S  ST«  I  K) 

NT  PUF»NTI>Ur  ♦  1 
fh  F  AL*  FPC  AL  *S  INCCL 
IF  l  ?P6NT1.:^.0I  GO  t;  200 
C 

I  I  !  I  IF1LU-1FIMSFSI  *f  .51 
JJJ(  IF  ILLl*Ir  l*(SrrLU*C.Sl 
aka.*  IF  ILL  I -IF  I«l  SST- 
IF  UF  ILL- 101  369,  361  ,  Jit 
C 

381  HR  I Tr ( 6  *  3rt. M 1 1! ( I  I  »JJJ(I).AAK*I  )  *  1  ■  1  *  1  0  I 
362  Format*  10*  I»,  i  3  *  1  X  #  I  .lX.ti.lXll 
IF  IlL-l 

G°  TC  3C0 
C 

389  1*  ILL* I F  JL  L ♦ I 
GC  TC  300 

C  RFjgCT 

390  I • IPSl-IPl-l 
J«IO€LTA-IClMl 
a.JSTPIa-  ISImj 

IF  *  .NOT.F*  I.j.MI  g:  TC  300 
FliHI.j.K) 

P'  391  ivL-i.VvLPl 
|F  (FIP.£0«VVLc(  X  N>  L  I  I  CC  TC  392 
*91  COKMNUf 
GO  TO  300 

392  F  *  I,  J.M-VV*  ( I  ,  1  vl-  l  I 
C 

JOO  l.INTINUC 
C 

C  AAA A4AAJA3 

C 

c  . 

c 

c 

c 

IF*  iei2.6C.OI  r,C  IC  ‘CCO 
IF  1  -  IF  12 
!*-NM€N2 
lc  12*0 
IF N2-0 
GO  TO  JO  l 
C 

C.  - 

C  SP  SP  SP  SP  P  «  IITTLFS-P  <  ANC  L  ITTLfP-P.  SP  SP  SP  SP 

C  -  CITTLCS-Pl  Sf  C T  IC  A  f  NCS  - 

C 

C  FLUSH  I F  1 1 1  PUFFCR 

5000  Ic* IPPNTt.EO.O)  GC  TC  510 
IF  Uc-fFlLl-l 

I  p  €  IF  ILL.  Nr.  0»*.R  mu  .4821(1 tlltltJJ  Jill  .RAMI  I.I'UMLU 

C 

510  if(  iPLCTi.ec. oi  or  t:  «w 
0R|TF(6,«m  lULlSf  Ml  .1*1 .21 

511  OF JRHAT(/20X,A2H« IxFC  IENGTh  VEC  TQA  Fl C  T  -  HAS  B6E  N  PLCTTfc0/20X, 
l  2  A  fl  .  ?M— ) 

tfTftU'NTfltf 
CALL  TCTALUTfttl 
GO  T  *  «14 

512  H*.  tTf  16. *121  lULlNr*  1  1.1  M.2I 

513  OFOBI<AT  (  /  20X.  39»f  (  »f  ~  iENGTm  VECTC«PLCT  -  NOT  R  6  Cue  S  T  f  0/20X  »  2A6  , 

17h - I 

C 

514  FNTRtjf  .KTPi.  f 


’9 


t  T«sur«'\Tfcit />'NCl*»9 

Fkf  41  •  #  *5  F  *  t  *F  ^C’ 

S s  1  A  l  *  |  •  00  -  f  R  l  4  V. 

JlJT4'U*  NU^4=V  0*  «;  f  5  L  L  T  b  fo*  THIS  PHASE  PAIR 

«p  !▼*  16, -l*  I  Kl  IM  4  I  )  ,  I  -1  .  ’> 

MS  0*  REStltS/iOMJA*  WN--  » 

l  TV  If.VU  MRUF  ,NCC4S,f  TRUr.#S.«l#l  #S«f  41 
SOI  OFO*-.\M// la,  IP.  •  CC401KATICNS  CF  IF*  TfAFE  RCT  A  T  1  CN  ANl,LFS  ACCEPT 
Ui«it  •' »7  *  *,10// 1*«.*f*aCTION  OF  FAtlT  PLASF  ORIENTATIONS  *CCCPT 

0  At*  l  F  IM, ‘FRACTION  OF  MILT  FlAKF  OR  |  CM  A »  1 CN$  INCOPPAt 

3 1  P  i.  t  4  INC  l/NCCHttl  •  *  »F  !<•*)//  lM.*FRACT!nN  CF  F  Aol  T  PLANE 
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If  4  1‘  llx  -  I'M  I  (T  V  ,  .  0  *'  ,  K  .* 
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1 r  u  i  : 

4.  T  T  '  *V  J 

tci  if  tu  * ;  1  il*i 
700  C  4 ' N  * ’ N 1 

F  l  v  S  »•  :  -  III  r  t  F  F  :  F 
| »  t  I  I'fcS’N.  w  .1'  1  •«  T  •  ?0* 


I*  ILL-  IMll-l 

IMIMU.NF.OI*.RITMtt4a:nni(ll,JJJUI  .KAMI  I  *  I • l • I f I LL  I 

c 

7CK  IM  IPLCTN.NE  .0  i  ^nut,51ll  I  ULIAE  i  I 1  . 1  •  l  ,2 1 
IF  (  IPL  J’N.f  C.O)  *kITtU,M3>  (  JL  INF  (It  t I *1 ,2) 

NT  -  0*NTR  £ 

IF  I  !PLOTN.NF.O>  '**U  ICTAlINTRul 
FNTRUf -NtRlt 
FTKur-CKTRl  c/FNCckf» 

S-(FNCONg-FMK  JCl/FNCCkB 
FRFAL»cSf Al*Ff ACT 
S«rAL-UrO-FRf  AL 

C 

c  ju T put  suF*»Apy  i/f  RrsLirs 

c 

w*:te<o»«i?>  cut  in:  i  i >  #i-i  ,2) 

mRITF46,S01>  NTkot ,NCCPB,FTHut  » S « FRE U , SRE Al 
Ic  (REGICN.tw.dLAN***)  ITEI  6,504) 
lM«FGICN.45.t‘l  ANK4  )  «FI  T  c  <  6  i  50  5 )  KCCMBRtNCCHtf 
C 

C  p«UN~  ANO  FlC*  CUMULATIVE  PARTIALLY  ACCE  F  T  ABLE  0*1  ENT  AT  ICNS  / 

C  PRINT  ANC  FL  :T  ORIENTATIONS  PAftTtAllV  CCPPATIBLE  M I Th  ALL 
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I PPNTN*! PRNT 3 

IFI  IOP.FO.ACPI  IPRN'N* IPRNT5 
I PLCTN  » l PLC  T 1 

lc t  inP.EU.NCP)  IPLc ’N»  IPl TT5 
C 
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IM  IOP.FO.NOP>  wRtTfcU.746)  (  Ul  I  NE  S  III  •  I  -  1  ,6  I 
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i  f  (  idfv  )  g:  tc  hi 

NT  C  T  *0 
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K= I STR  I  k-  i  s  i  p  i 
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c 
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r 
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f  s  fob  mat  i 
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7M  |F|LL«|F|il*l 

760  CCMlNUf 
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C  FLLSH  |F|U  PJffFB 
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c 
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APPENDIX  I 

USTINI.  OF  PLOTTING  SUBROUTINE  (PLOTS) 

PlCTV 


HoriFirn  */i;/jh  n:  Rfpovr  cumulative  reccr*'  c*  vectcms  plcttfc 

SUBRf  U  T  I  Nf  TLC’VlA,t*,C) 

ENTRY  sfTu*’VIT|  »tr  .T  l UfF , ANA*F , ENAFE ,CNA"E ,A| ,A| , AN,0l  ,Bl  ,*N,C l  , 
1C  t  »Cn  •  I  *  I 
tNTRY  T.'UUM 
ENTRY  >CtLfL<NVL) 

ENTRY  PlCTvilA.lSC  »l  I 
ENTRY  *CY*iS 

TmH  Svm^XTTNc  PL  LI  S  SELECTED  CCPBINATICNS  CP  TmF  ANGLES  A,B,C 
with  a  as  UE  ABSCISSA,  »  AS  Th:  CCwNbARC  CROlNATE  ANP  C  AS  A 
UNI’  V»  TP«  \}f  Kl  TATKN  ABCU  T  THE  PCINT  A  •  8  CLCCKWlSf  ERCN  THE 
UMlAPi'  V»MCAl.  *C*  LACN  KRANE  TO  «6  PLOTTED.  THf  VCfTC«S  CAN 

Of  *hio  length*  cp  ip  oiscrfte  variable  length  l  ito  represent 

A  F(IUA*M  VAC  I A  «ir  WMCE  CAN  ASSUME  SEVERAL  VALUE  S I  *  WHEN  USING 
THIS  l»'TIJN  l  JAN  TA*f  VALUES  PRC*  l  Tf  A  WAMPUM,  NVL  •  THE 
LJUIVA4.NT  LFNCThS  APT  SCALED  TC  HE  BETWEEN  ZERO  (FOR  l«OI 

ANC  ThI  *  A  M  l  MU  **  LENGTH  (FOR  L»NVLl 

HfTHO'>  V  iSE 


EUR  EACH  ►ca*(  T C  Rf  FlOTTro,  EITEER  ThE  FIRED  VECTOR  IFNuTh 
OPM'W  'R  IwF  VAR  I A  81 F  VECTOR  LFNOTH  OPTION  NAT  BP  USTO 

I  A  i  'of  v£CTC«  length  option 


f  IRS* 


CALL  Si  rt,rv(  T  I  TLF  ,T  l  U  f  F  ,  ANAMF  ,  PNAME  ,  C  N  1*E  f  *1  ,  A  ]  ,  AN  ,0  )  ,  B  I  ,  BN,C  1  , 
ICt.CN.IFl  M  S.  T  UP  TEF  PLOTTING  FRAWf 

TITLE  THLf  IP  TATA  BEING  P*OCESStt  IRMOF  TIHEIICII 
THIEF  THU  *  ThE  HAUL  (RfAL*«  TIHfft9|| 

AN A  HI  SA*L  OF  IMF  A  VARI48LF  |R€Al«BI 

BNANf  \A**c  TnF  f  VARIABLE  (REALM) 

CNA*»r  NA.Wf  .If  Th(  f  VARIABLE  (REALM) 

A 1  LCwC.U  A  VALLE  TO  BE  IwClUOfC  ON  PLOT  4  OF  G®E  f  S I 

A  I  INCAFHENT  Cf  A  VALUE  Tf>  BE  tSPC  CN  PLOT  I  OCGPf  E  S I 

AN  h!GE  S*  A  V  AL  Ll  TO  BE  INClLOlC  CN  PLOT  ( DEGREE  S I 

|)I  tCwiST  0  VALUE  T)  BE  INCLUOEC  CN  PlO*  IOFG*EIs) 

B  l  ININ  EMI  NT  »  r  e  VALUE  TO  Bf  LSfO  CN  PLOT  (DEGREES) 

BN  HloF  .Nt  B  VALLE  TO  at  INCluOEC  CN  PICT  4  PFGR  FF  S I 

Cl  L'WfST  L  VALLC  TO  INCLUCCC  nN  PlCT  4  Of  G*Pf S  ) 

Cl  INCkENFNT  C*  J  VALUE  T  .1  flt  LSIC  CN  PICT  (TEGMFS) 

CN  r-fOfSf  C  VAttF  T<7  Rr  ISClVDfD  fN  PICT  ICFCRItS) 

1*  AT vH  ■*  ARGU»FN T 

Sf  v  i'NOL  V 


L  A  L  l  pu  »V4A,H,U»  ft®  IACH  SET  OF  VALLES  TC  61  PL  1 T  T  |  p 

4 T c  savi  •  i*u  this  call  ocrs  not  incluce  protection  against 

AA-UHfiTS  SP'r;FlfC  rL  T  S  (  Uf  Thf  RANCF  INIUATEC  Br  CALL  SETUPV, 
iJH  L  V  |  N  C  “H«E*N  INC«r»*ENTSI 

FINALLY  I*  PT  U  \AL I 


CALL  ’  T  A  L  4  N  #  MLSHS  ''UTPUT  BUFFER  ANC  SlGMFltS  CCNPLETION  Cf 

T  Ml  FF’Ht  A  V  1  '.SPLAYING  N  I  THf  NUMBfR  OF  POINTS  Pl'TTTtO  ON  T  Hf 
T I'P  »-U.hT-hANC  CORNER  CF  THf  PLOT.  N  IS  SUPPtlt'T  BY  Th«  CALLING 
PNilGF  A** 

4  B  )  V  A®  !  *  BL  I  VfCTCS  l  f  Nv.  T  H  C^’TICN 


f  \  ®ST 


CALI  S'  Tgo  v  4  ...  ABOVf 1  I 

SftONPl y 


(.AIL  S I  T  u°  I  (NVL  )  WHERE  NVL  IS  THF  NUMBER  CF  DISCRETE  VECTOR 
LENGTH,  REwuIRI'O  4HAH-UN  VALUE  Cf  NVL  IS  GCVfRNEO  BY  THE 
OHfNMCN  v’E  TmF  ARRAY  NT!  BCLlWl.  NC  T  \  -  IN  PRACTICE,  WHpN  M  NF 
|*K'RfMlNTS  »'►  A  H  E  • 0  E  USiC,  CNLY  SEVk°AL  PISCRETE  LENGTHS  *»V 
Bf  RES  LVAfii*  VISUALLY  ON  ThF  PICT 

rwipm  v 

CALL  Pl»'TVl  »A,B,l  ,1  |  «CR  EACH  SC  T  OF  VALLES  TO  BE  PICTYfcC 
(TO  SAVf  ! WL  THIS  CALI  DQF S  NOT  INCLUDE  PROTkCTION  AGAINST 

ak c.iiHL nts  sprci»irr  iiTsiof  the  rance  iMM»Tfr  by  call  sftupv* 

»R  LVtNi.  ,r»w£iN  iNCFLPfNTM 
FINALLY 


CALL  t,«ta».v  f  LUSH  t  S  OUTPUT  W»Ff*  ANC  SIGNIFIES  CCNPlfTIOh  rt 
Th(  ►RAMf  *•»  CisPLAYiNG  NVL  4  THr  NuPBER  O  VECTOR  LENGTHS!  CN  THf 
TOP  RIumT-»ANC  (CRNFR  v»  ThE  PICT 

NOTE  r,  n/p/PI  »,  NM«r  P!|-*P|  */IBO.O,  PUST  BE  SET  L,P  OUTSIT' 
this  s,m»a  -l  t iNr 

SOB«fi/TINf  PI  i  *  v  I  A,  B,C  I 

Biltiur  HM'.I  N  ‘HIT  1101. Y  Hlf  f  (  *  »  *ANAPE  ,BNA*ii#CNAPT 
r  '•wiin/p/pj  i 


c 

C  PLTT  VECTOR 

C 

X»XC*A*XF 
Y«YC^B*YF 
IX-X 
I  V  =  Y 

!XV»X*VL*$JMC*PI1  ) 

1YV»Y-VL**"CSI  C*P  I  1  ) 
call  vrcnaux. IY, i»v, iyvi 
999  A*:  TURN 

c 

CNTBy  tctaum 

M«N 

CALL  TSP«S4<.,Ati,ei 
CALL  H0PAM(<HN=,2I 
CALI  IfC0M(V,5> 

CALL  ENCF^F 
GO  n  999 
C 

ENTRY  PLCTVl  I A»P,C  ft  ) 

X*XC*A*XF 

y«yc»<j*yf 

I  x  *x 

I  Y  *  Y 
FI  =L 

VLL*VL1*FL 

I XV«X*VLL*S1R (C*PIi) 
lYV*Y-VLL*CrStC*PIli 
CALL  veCTQR<  IX,  IY,  UV.1VV) 

«FTu»N 

C 

ENT»Y  TOTALS 
call  T$Pt969,A8,8) 

CALL  HQR AMlAHNVL* ,  A  > 

CALL  IFOANlhVLi, i I 

call  encfme 

GO  TO  599 
C 

ENTRY  SETUPVtTt UFt  TI Ttff ,ANAME.eMAPe,CAAHE,Al,AI , AN*8l#ft! «8N,C1, 
1CI ,CN, t  P  > 

C 

C  POCTFCTICN 

C 

IFI&l)  10  t  1 1  • 12 

10  A  I— A! 

GO  TO  12 

11  Al * i • 

12  1F( 4N-A1I15, 17. I  7 
15  Oa  A | 

Al  *  AN 

AN  =  C 

17  AN*4NAAf*Cr(|AN-Al)lAf  I 

C 

1*181120,21,22 
20  91— BI 

GO  TO  22 
*  1  o  I  »  1  . 

22  1HBN-01  1  25.27,27 

25  J*81 

d  1  *8N 
8N*C 

27  nN»BNfAMCCUPN-eil,eil 
C 

IF  (Cl)  20,21,32 

30  Cl— Cl 
GC  T?  32 

31  Cl*l. 

32  IFICN-Cll  35,37, 17 
35  G*Cl 

Cl-C  J 
CN*C 

17  CN-CNTARCCMCN-Ci  l.Cll 

C 

C  S*  T  UP  FRA*'? 

C 

CALL  AOVFLMIF) 

CALL  TSP<-A,A0,8) 

CALL  HOBAPITl TL6, 8U) 

CALL  HORAMUh  ,11 
CALL  MOiUMtT  lTLEF,*oi 
C 

CALL  TSP<-AtAflf2A» 

CALL  MOPAMIAKAME  ,81 
CALL  H0RAH(9F-ACPC«S  1.5) 

CALL  FFQRMUl.fc,  l> 

CALL  HORAN! 1*, , 1 > 

CALL  MCAN(Al,6,2l 
CALL  HOSANUl-,,1) 

CALL  FFCRN<AA,* , t) 

CALL  HORAMAM  .<■) 

CALL  HQRAN  I  BN A**  «  * ) 

CALL  mCPANC  7h-C'*«'.  <.<> 

CALL  FFCPN|*l,6,n 
CALL  HORAN  ( 1H , ,  1 ) 

CALL  FFCRHiei ,6,2 » 

CALL  HO®  AN ( 1H , , 1  ) 

CALL  FFCRNIBK  ,6,1) 

CALL  HQRAN(AH)  ,*i 
CALL  HORAN(CAANC,«) 

CALL  MORAM! 1 9H-CLrr*h HE  U*P*0)  f#HI 
CALL  Ff :RN|Cl,t,l » 


CALL  HORAMilF.,1) 

CALL  FFC«MIC!  .*-,2) 

CALL  H0PA*iU-,fl| 

CALL  FFCOMiCN.ft.il 
CALL  HOOAMilMl.l) 

C 

C  SET  UP  SCALE  FACTORS 
C 

Xl*16. 

XU =100 7. 

XF*<  XN- XI 1/iAN-Al.AI) 

XVL=XF*AI/i. 

XC*X1*XVL~A1*XC 

C 

Yl=32. 

YN-1023. 

VF«  ( YN-  Y1  )/(BN-Bl*8I) 

YVL*YF*Bl/2 

VL*XVL 

JFiXVL.GT.YVL)  VL-YVL 
YC  =  YLYVL-B1*YF 
JP  =  4 
C 

C  PLCT  GRIC 

C 

NI*(AN-A1)/AI*1.5 
NJ=IBN-B1»/BI*U5 
00  40  1=1. M 

IXP=XC+(A1.FLCATI 1-1 I*A1)*XF 
DO  40  J  =  1 ,NJ 

IYP=YC+iei.FLCAT(J-ll*ei)*YF 
CALL  VFCTOOi IXP-JP, JVP, IXP.iP.lYPI 
CALL  VfCTCRi JXP, I YP- IF ,IXP, IYP*IP) 
40  CONTINUE 
GO  TO  R<9S 
C 

ENTRY  SFTUPL(NVL) 

NVLl*NVL 
FNVL -NVL 1 
VL1=VL/FNVL 
GO  TO  SR9 
ENC 


X4 
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FIGURE  1.  THREE  TELESEISMIC  SHORT  PERIOD  ARRAY  OBSERVATIONS  OF  THE  1  MAY  1969 
EAST  KAZAKHSTAN  EARTHQUAKE ,  ORIGIN  TIME  04.00.08.7,  LOCATION  43.98°N, 

77 • 86°E  AND  BODY  WAVE  MAGNITUDE  hl  =  4.9  (NE IS  PARAMETERS).  C  AND  A 
CORRESPOND  TO  AZIMUTH  OF  THE  STATION  FROM  THE  EARTHQUAKE  AND  EPICENTRAL 
DISTANCE  RESPECTIVELY.  PRESUMED  PHASE  IDENTIFICATIONS  AND  THEIR  POSSIBLE 
AMPLITUDES  (IN  ARBITRARY  UNITS)  ARE  SHOWN 
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FIGURE  3.  SURFACE  REFLECTED  PHASES  FOR  EARTHQUAKES  (a)  BENEATH  LAND  AND  (b)  BENEATH 
THE  SEA.  THE  SEPARATE  SEA  BED  AND  SEA  SURFACE  P  WAVE  REFLECTIONS  WOULD  NOT 
NORMALLY  BE  RESOLVED  ON  A  LONG  PERIOD  SEISMOGRAM 


DOUBLE  COUPLE  FORCE  SV STKM“wTtTTtHF  PLANE  X2X,  AS  THE  FAULT 
PLANE;  (c)  THE  P  WAVE  AMPLITUDE  RADIATION  PATTERN  IN  THE  FAR  FIELD 
SHOWN  AS  A  THREE-DIMENSIONAL  POLAR  DIAGRAM.  ALL  PARTICLE  MOTION  IS 
RADIAL,  ie.  TN  THE  DIRECTION  OF  PROPAGATION 


RADIATION  PATTERN.  SINCE  PARTICLE  MOTION  IS  PERPENDICULAR  TO  THE 


dip  of  fault  plane 


Figure  7.  Method  of  representing  acceptable  fault  plane 
orientations  in  terms  of  slip  direction  ...  dip  <s  and  strike  <r,  as 
defined  in  Figure  6(d).  Acceptable  orientations  are  plotted  as 
vectors  from  the  Cartesian  point  defining  and  <\  in  the 
direction  of  the  strike  <>  Lower  hemisphere  stereographic 
projections  indicate  the  type  of  fault  plane  orientation  represented 
by  various  combinations  of  ..  and  and  are  shown  oriented  for 

strike  «  =  360°  (northerly)  In  each  case  the  fault  plane  is  shown 

by  a  thick  line - ,  the  auxiliary  plane  by  a  thin  line  -  Shaded 

quadrants  are  negative  Different  parts  of  the  plot  character¬ 
ize  various  fault  types,  and  some  of  these  are  shown  Where  the 
interchange  of  fault  and  auxiliary  planes  yields  a  different  fault  type, 
this  is  shown  in  square  brackets  j 
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FIGURE  8.  CONVENIENT  GRAPHIC  REPRESENTATION  OF  RESULTS  FROM  THE  RELATIVE  AMPLITUDE 

- PROGRAM  FALT  USING* A  VECTORPLOT,  WHICH  IS  ROUTINELY  GENERATED  BY  THE 

PROGRAM  USING  SUBROUTINE  PLOTV.  THIS  VECTORPLOT  SHOWS  THOSE  ORIENTATIONS 
WHICH  ARE  COMPATIBLE  WITH  THE  PHASE  PAIR  P  AND  pP  AT  VKA,  AS  SHQWH  IH  THE 
SEISMOGRAM  OF  FIGURE  l(a).  EACH  VECTOR  REPRESENTS  A  COMPATIBLE  ORIENTATION 


96 


or  plane 


DIP  OF  FAULT  PLANE 


SLIP  ANGLE  IN  FAULT  PLANE 

30°  60°  90° 

♦♦♦♦♦♦♦♦ 


♦  ♦  ♦ 


♦  ♦  ♦ 


3°  ♦  ♦ 


STRIKE  <r 


♦  ♦  ♦  ♦ 


♦  ♦  ♦ 


♦  ♦  ♦ 


♦  ♦♦♦♦♦ 


60°  ♦ 


♦  ♦♦♦♦♦ 


♦  ♦  ♦  ♦ 


90°  ♦  ♦  ♦ 


♦  ♦  ♦  ♦ 


♦  *  * 


4  4  4 


v  * 


'-Vvww***/-/- 
*  **<**$  m  m  m  *- 

*•  *  *  if  r-  - 


'  *  >  <• 


-mk  m  + 


♦  ♦  4  \  %  \  > 


*  t  t 


♦  ♦  ♦ 


1  H0°  ♦♦♦♦♦♦♦ 


♦  ♦  ♦ 
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FIGURE  13.  THE  ORIGIN  OF  THE  INSTANTANEOUS  CHANGE  IN  GEOMETRICAL  SPREADING  FACTOR 
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FIGURE  14.  DIAGRAM  TO  ILLUSTRATE  THE  CORRESPONDENCE  BETWEEN  VALUES  OF  SLIP  ANGLE 
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So—  Metric  and  SI  Unit  Conversion  Pmm 

on  DBF  STAK  00-11/2  "Metric  Units  for  Uso  by  the  Ministry  of  Defanca". 
1  DS  Mot  55«U  "AWRfi  Metric  Guido"  and  other  British  Standards) 

I 


Quantity 

Unit 

Symbol 

Conversion 

Basie  Units 

Length 

nctrt 

m 

1  a  -  3.2808  ft 

1  ft  -  0.3048  m 

Mass 

kilogram 

hg 

1  kg  -  2.2046  lb 

1  lb  -  0.45359237  kg 

1  ton  ■  1016.05  kg 

Derived  Units 

Force 

newton 

N  •  kg  m/s2 

IN-  0.2248  lbf 

1  lbf  -  4.44822  N 

Work.  Energy,  Quantity  of  Heat 

loulo 

J  •  N  m 

1  J  -  0.737562  ft  lbf 

1  J  -  9.47817  «  lO-*  Btu 

1  J  -  2.38846  «  HT**  kcal 

1  ft  lbf  -  1.33582  J 

1  Btu  -  1055.06  J 

1  kcal  •  4186.8  J 

Power 

watt 

W  -  J/s 

1  W  -  0.238846  eal/s 

1  cal/a  -  4.1868  W 

Electric  Charge 

coulomb 

C  -  A  s 

- 

Electric  Potential 

volt 

V  -  W/A  •  J/C 

- 

Electrical  Capacitance 

farad 

F  •  A  s/V  -  C/V 

- 

Electric  Resistance 

ohm 

SI  -  V/A 

- 

Conductance 

si— an 

S  -  1  Q-> 

- 

Magnetic  Flux 

vaber 

Wb  -  V  s 

- 

Magnetic  Flux  Density 

tesla 

T  -  Wb/m2 

- 

Inductance 

henry 

H  -  V  s/A  -  Wh/A 

- 

Complex  Derived  Units 

Angular  Velocity 

radian  — r  second 

rad/s 

1  rad/o  -  0.159155  rov/s 

1  rev/s  -  6.28319  rad/a 

Acceleration 

metre  per  square  second 

m/s2 

1  m/s2  -  3.28084  ft/a2 

1  ft/s2  -  0.3048  m/a2 

Angular  Acceleration 

radian  per  square  second 

rad/s2 

- 

Pressure 

newton  per  square  — tre 

N/m2  -  Pa 

1  N/m2  -  145.038  *  10~*  lbf /In? 

1  lbf /In?  -  6.89476  «  10J  N/m2 

bar 

bar  -  10s  N/m2 

1  In.  Hg  •  3386.39  N/a2 

Torque 

nawtott  aatra 

N  n 

1  N  a  -  0.737562  lbf  ft 

1  lbf  ft  •  1.35582  N  m 

Surface  Tension 

newton  per  aetr# 

N/m 

1  N/m  -  0.0685  lbf/ft 

1  lbf/ft  -  14.5939  N/m 

Dynamic  Viscosity 

newton  second  par  square  —tre 

N  s/m2 

1  N  o/m2  -  0.0208854  lbf  s/ft2 

1  lbf  a/ft2  -  47.8803  N  e/m2 

Kin— atlc  Viscosity 

square  metre  per  second 

m2/s 

1  m2/s  -  10.763R  ft2/e 

1  ft2/s  -  n.0929  ml/s 

Thermal  Conductivity 

watt  per  — rre  kelvln 

V/m  K 

- 

Odd  Units* 

Radioactivity 

hecquorel 

8q 

1  Bq  -  2.7027  «  10"11  Cl 

1  Cl  -  3.700  ■  10>«  Bq 

Absorbed  Dose 

pray 

Gy 

1  Gy  -  100  rad 

1  rad  -  0.01  Gy 

Dose  Equivalent 

slaver t 

Sv 

1  Sv  -  100  ram 

1  r—  -  0.01  Sv 

Exposure 

coulomb  per  kilogram 

/hR 

1  C/kg  -  3876  R 

1  R  -  2.58  «  10-**  C/kg 

Rate  of  Leak  (Vacuum  System a) 

millibar  tltra  par  second 

mb  1/a 

1  mb  -  0.750062  torr 

1  terr  -  1.33322  Mb 

•These  tar—  ara  rocoanlaad  tar—  within  the  —trie  systi 


So—  Metric  and  SI  Unit  Conversion  factor* 

(Based  on  DEF  STAK  00-11/2  "Hotrle  Units  for  Uso  by  ths  Ministry  of  Dofoncs", 
DS  Mot  5501  "AWRK  Metric  Guide"  and  other  British  Standards) 


Quantity 

Unit 

Symbol 

Convereloo 

Basic  Units 

Length 

Mtrt 

m 

1 

m  -  3.2808  ft 

1 

ft  -  0.3048  m 

Mass 

kilogram 

><g 

1 

kg  -  2.2046  lb 

1 

lb  •  0.45359237  kg 

1 

ton  •  1016.05  kg 

Derived  units 

Force 

newton 

N  •  kg  m/e* 

1 

R  -  0.2248  lbf 

1 

lbf  -  4.44822  N 

Work.  Energy,  Quantity  of  Heat 

loule 

J  •  N  m 

1 

J  -  0.737562  ft  lbf 

1 

J  •  9.47817  x  lO-*  Btu 

1 

J  -  2.38846  >  lO-**  keel 

1 

ft  lbf  -  1.15582  J 

1 

Btu  -  1055.06  J 

1 

kcal  •  4186.8  J 

Power 

watt 

w  -  j/o 

1 

W  -  0.218846  cal /a 

1 

cal/a  -  4.1868  V 

Electric  Charge 

coulomb 

C  •  A  a 

- 

Electric  Potential 

volt 

V  -  W/A  «  J/C 

- 

Electrical  Capacitance 

farad 

F  -  A  e/V  -  C/V 

- 

Electric  Resistance 

ohm 

n  -  v/a 

- 

Conductance 

slemen 

s  -  i  n-1 

- 

Magnetic  Flux 

weber 

wb  •  v  a 

- 

Magnetic  Flux  Density 

tesla 

T  -  Wb/m* 

- 

Inductance 

henry 

H  -  V  s/A  -  Wh/A 

- 

Coaiolex  Derived  Units 

Angular  Velocity 

radian  per 

second 

rad/s 

1 

rad/a  -  0.159155  rev/s 

1 

rev/s  -  6.28319  rad/s 

Acceleration 

metre  per  square  second 

m/s* 

1 

m/a*  -  3.28084  ft/e* 

1 

ft/s*  -  0.3048  m/o* 

Angular  Acceleration 

radian  per 

•quart 

second 

rad/s* 

- 

Pressure 

newton  per 

square 

aetre 

N/m*  -  Fa 

1 

N/m*  •  145.038  x  10*®  lbf/ln* 

1 

lbf /In?  -  6.89476  «  101  N/m* 

bar 

bar  -  10s  N/m* 

- 

1 

In.  Hg  -  3386.39  N/m* 

Torque 

newton  metre 

N  a 

1 

N  m  •  0.717562  lbf  ft 

1 

lbf  ft  -  1.15582  N  n 

Surface  Tension 

newton  per 

s 

r* 

*1 

a 

N/m 

1 

N/m  -  0.0685  lbf/ft 

1 

lbf /ft  -  14.5939  N/m 

Dynamic  Viscosity 

newton  second  par 

square  — tre 

N  s/m* 

1 

N  s/m*  -  0.0208854  lbf  s/ft* 

1 

lbf  s/ft*  -  47.8803  N  s/m* 

Klnsnatlc  viscosity 

n*/s 

1 

m*/s  -  10.7634  ft*/e 

1 

f t*/a  •  0.0929  m*/s 

Thermal  Conductivity 

watt  per  me’re  kalvtn 

W/m  K 

“ 

Odd  Units* 

Radioactivity 

heequerel 

M 

Bq  ■  2.7027  x  lO'11  Cl 

Cl  -  3.700  x  10'®  Bq 

Absorbed  Dose 

arav 

Gy 

Gy  -  100  rad 

rad  •  0.01  Gy 

Dose  Equivalent 

eleven 

Sv 

Sv  ■  100  ram 

ran  •  0.01  Sv 

Exposure 

coulomb  per  kilogram 

/kg 

C/kg  •  3876  R 

R  -  2.58  x  lO-**  C/kg 

Rate  of  Leak  (Vacuum  Systems) 

millibar  litre  par 

second 

mb  1/s 

mb  ■  0.750062  torr 

terr  -  1.33122  mb 

*Theae  tar—  are  recognised  tarns  within  the  —trie  systi 


